EDDT 



V022 
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1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

16 

19 

20 

21 

2 2 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 

3 5 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 



IFNDEF EdDT,< 

^'^'^■'■ = 1 IMAKE EXEC DDT 

.;ALL other REFERFMCES to VER^JION # are TAKEi'v CARE OF BY THIS DEFINITION 
C100022 0DTVER = = 22 

SUBTTL 2 JUN 69 
REPEAT 0,< 

DOT ASSEMBLY INSTRUCTIONS 

IrLfn^^^^ ''"■^ °'' DDT, 13 WILL ASSEMBLE INTQ SEVERAL DIFFERENT 

VERSIONS! THE ASSEMBLY: IS CONTROLLED BY THE VALUE ASSIGNED 

TO THE SYMBOL "EDDT". THE SYMBOL "EDDT" IS DECODED AS FOLLOWS: 

fllT 35 



BIT 34 



BIT 33 



= 01 
= 1; 



= 0i 
= 11 



= 0; 
= li 



BIT 32 =1! 

BITS (0-17) 

= 0) 

NOT=0i 



ASSEMBLE A USER "ODE DOT 
ASSEMBLE AN EXECUTIVE MODE DDT 

DO NOT ASSEMBLE THE PAPER TAPE FEATURES INTO DDT 
ASSEMBLE THE PAPER TAPE FEATURES BUT ONLY IF 
ASSEMBLING AN EXECUTIVE MODE DDT 

FOR USER MODE DDT ONLY- ASSEMBLE USING THE 

"TTCALL" UUO FOR TELETYPE 10 
FOR USER MODE DDT ONLY- ASSEMBLE USING THE 

"ODTIN" AND "DDTOUT" UUO ' S FOR TELETYPE 10 

ASSEMBLE A FILE DDT 



ASSEMBLE A RELOCATABLE VERSION OF DOT (RELOC 0) 
ASSEMBLE AN ABSOLUTE ( NQN-RELOCATABLE.) VERSION 

OF DOT WITH A STARTING ADDRESS BEING THE 

NUMBER IN BITS 0-17 

"' '"^ uIth°£DDT = 0!) '^ '^°'' °^^"" *^ *'-^' °°^ "^^ "^ ASSEMBLED 

EXAMPLES OF "EDDT" DEFINITIDmSI 

EDOT=a ASSEMBLE A RELOCATABLE USER MODE DOT WITH TELETYPE 
I/O DOME BY THE "TTCALL" UUO tutur-t 

EDnT=l ASSEMBLE A RELOCATABLE EXECUTIVE MODE DDT 

EDDT=<XWD 4000, 3> 

ASSEMBLE AN ABSOLUTE EXECUTIVE MODE DOT 
WITH PAPER TAPE FEATURES, AND WHOSE STARTING 
ADDRESS IS LOCATION 4000, 



iDDT 
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54 
55 
56 
57 
58 
59 
61} 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 

73 
74 
75 
75 
77 
78 
79 
813 
91 
92 
83 
9 4 
95 
R6 



EXAMPLE OF A MACRO aSSeMRLV COMMANDi 

,'C 

.H MACRO 

»dsk:udot,/c-tty!,dta2;ddt.i? 

EDDTzB) 



END OF Pass 1 

MO ERf<aRS oetectfd 

program qRFAK IS a0334f 



ITHIS LINE TVPFD BY MACRO 

;T¥PED BV MACRO 
ITVPEO BV MACRO 
UVPFD BV MACRO 



OTHER VERSIOMS OF DDT ARE ASSEMBLED IN A SIMILAR MANNER 
RV DEFINING "EDOT" A DIFFERE'IT wAV WHERE THE EXAMPLE 
DEFINED "EnnT=0", 

> !E'JD OF REPEAT 



EODT 



87 

P8 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 

IBU 

IPll 

1',".2 

1C3 

1C4 

135 

1C6 

lf:7 

1P8 

1PI9 

110 

111 

112 

U3 

114 

115 

116 

117 

116 

119 

120 

121 

122 

123 

124 
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IFMDEF EnDT.<EnDTi=0> 



OEFImF XP (X. , Y, ) .< 
IF2,<X , =Y, 
INTERN X.>> 



IF^! EUnTSl.crElFI^E HFAOER (VER5I0N)i< 

TITLE EQDT va'VFRSIPM 

J0BHFL==37 

J0RSYM = =.?6 

? L n '« = = 4 2 
>> 

IfE EDDT^l.<nEFU.E HCAOE" (VFRSION).< 
IFE FODT/!l?l,< 

TITLE UDHT va'VFRSIPN 

IF\i EUDT/il5i,< 

TITlF FILDDT VK'VFRSIPN 

EXTERN JOBREL.JOPSYM.JOBSA, jOBMRt 

?U0W = :14J<>> 



-EXEC MODE DOT 



USER MODE QDT> 
-FILE riDT> 



IDO MOT SET LOWER COPE IF EXFC DDTIOK USER OR FIlDOT) 

IFE EUDT;!1.< 

J0RVER==137 

IOC JOBVER 

DDTvER iPUT VERSIOM * IN JOFIVFR 

J0BDDT==74 

LOG JOBDDT 

X^.D noTEWOiOPT 
RELOC 
> 

IFN E0OT«<XWO -1,0>,<LOC <ED'M>H'53> 

HEADER \ODTVFR» 

ITHE HFAOER MACRP CONSTRUCTS THE TITLE AND VERSION * 



EDOT 
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1?5 
126 

127 
128 
129 

130 
131 
132 
13 3 
134 
135 
136 
137 
138 
139 
140 
141 
142 
143 



!FM EDnT«15),< 



CM = 2 
nP = 3 



(DEFINE SOFTWARE CHANS. 



JDEFINE ACCUMULATORS 



0001302 


F = 


0006)01 


P = l 


003002 


R=<A=2> 


mzmi 


S = <B:>5> 


mitmA 


W=<C=4> 


000005 


T = 5 


000006 


Wl = 6 


000007 


W2 = 7 


003010 


SCH=10 


000011 


AR = 11 


000012 


0DF=12 


000313 


TT = 13 


000014 


TT1=14 



JFUAGS 

iPUSH DOWN 

iPOINTERS TO TABLES, CORE, ETC. 

iCONTAINS DISPATCH ADDRESS IN WORD ASSEMBLER 
jTRaMSfeR OaTA 



;MODF CONTROL SWITCH FOR OUTPUT 
;MOOE CONTROL SWITCH FOR OUTPUT 

;M00E CONTROL SWITCH FOR OUTPUT - CURRENT RADIX 
iTEMPORARY 
ITEMPORARY 



144 
145 
146 
147 
148 
149 
I'SB 
151 
152 
153 
154 
155 
156 
1 = 7 
158 
159 
160 
l*! 
162 
163 
164 
165 
165 
167 
168 
169 
170 
171 
172 
173 
174 
175 
176 
177 



003034 
000120 
000104 
003130 



000050 



203030 
103000 
000130 
003430 
003034 
003031 

003040 
013000 
003032 
003020 
303010 
304330 
001000 
002030 

323330 
403030 

003230 
343030 



300000 



;OEFINE I/O DEVICE MMEMONICS FOR DPT USE 

PRS==4 

Tl YY==123 

PTPR==104 

PTPP==100 

(DEFINE PUSH DOWNi LENGTH 

LP0L=53 ;mAX LENRTH PUSH DOWN LIST 

IDEFINE fflTS FOR USE IM LEFT HALF OF ACCUMULATOR F 



COMF==203000 

TIF==100003 

PTF==100 

CTF==400 

SF = = 4 

OFr:l 

CF==40 
CCF==10030 
MF = = 2 
LTF==20 
ROF==10 
STF==4303 
FAF==i003 
SAF = = i:003 

FPF=r20030 
FEF = = ''00?03 

MLF==230 
DVF = = 40k)0e 



ICOMMA TYPED FLAG 

(TRUNCATE TO 18 BITS - SET BY SPACE OR COMMA 

I *, -, OR » HAS BEEN TYPED 

(SYLLABLE FLAG 

(OUANTITV TYPED IN TO WORD ASSEMBLER 

1 "5 TYPFD 
1$ TYPED 
MINUS SIGN TYPED IN 

LETTER TYPED IN TO CURRENT SYLLABLE 
REGISTER npFN FLAP 

I < TYPED 
! > TYPED 

I , TYPED IN 
( E FLAG 

(•Flag 
(divide flag 



(PIQ IS 20 IF SYM TAR POINTER IS INDIRECT J0I5SYM 

PID==0 [=3 IF SYMBOL TABLE POINTER IS IN JORSYM 



EDOT 
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178 

179 

18(3 

181 

162 

183 

184 

185 

186 

187 

188 

189 

190 

191 

192 

193 

194 

195 

196 

197 

198 00Pl0i!)k) 

199 

2ei 

2?!2 
2C"3 
204 
2Z5 
206 
207 

2!!a 

209 
210 
211 
212 
213 
214 
215 
216 
217 
218 
219 
220 
221 
222 
223 
224 
225 
226 
227 
228 
229 
230 



(DEFINE RITS FOR USE IM PIGHT HaLF OF ACCUMULATOR F 



000002 
000004 
000400 
002000 
000001 
000010 
000020 
000200 
004000 



0401300 
100000 
740000 
200000 
400000 



000000' 



000010 
000000 



ITF==2 JINSTRUCTION TYPED IF ITF=1 
0UTF==4 ;OUTPUT IF 0UTF=1 

(OUTPUT 1 REGISTER AS CO^iSTANT 

lOUTPUT 1 REGISTER A? FORCED SYMROLIC OR CONSTAMT 
;NUMBER TYPEI AFTER ALT MODE 
ITEMP FLAG USED IN SETUP 



CF1==400 

LF1 = = 200I? 

02F==1 

R20F==10 

SBF==20 

NAF==200 

POWF==400e 



(NEGATIVE ADDRESSES PERMISSABLE 
lARGi'MENT FOR EXPONENT COMING 



iDEFINE SYMBOL TABLE SYMBOL TYPES 



GLOBAL==040000 
LUCAL = = 10Kfl0(" 
PNAME==740000 
DELI==200000 
DELO==400000 



DDT: 



INTERN DDTEND: 



IFE EDnT81.< 

> 
IFN ED0T«1,< 



(GLOBAL SYMBOL 

IPROGRAM NAME 
JDELETE INPUT 
(DELETE OUTPUT 

(DECLARE END OF DDT AS INTERNALi FOR 

( USER TO SEE (USER MODE) AND ONCE ONLY CODE 

I (MONITOR! 

ENTRY DOT 



INTEl'NAL DDT 
DOTXsDDT 
ENTRY DDTX 



(DEFINE t SYMBOLS INTERNAL TO DDT 
OPOEF DDTINT CZ 0.3 



(NEEDED BY MONITOR> 



(ADDRESS FLAG FOR INTERNAL REGISTERS 



RADIX 10 

NBP==8 (NUMBER OF BREAKPOINTS 

DEFINE OBPNT (!.)<XP $ • Z , ' B , <DDT I NT B1ADR*3»? , -3>> 

HE = = 

REPEAT NBP,<DBPNT \<Zi--li*l» 

DBPNT \<ZZ==ZH*1>'XP I18,<DDTINT BlADR*3»l-3> t 

DBPNT \<?Z = = ZZ + 1>»XP I2B,<DDTINT BlA0R + 3'>2-3>» 

DBPNT \<ZZ==ZZ+l>tXP $3Bi<DDTINT BlADR*3»3-3>» 

DBPNT \<ZZ==ZZ+1>'XP I4B,<D0TINT BlADR*3»4-3>» 

DBPNT \<ZZ==ZZ+l>tXP $5B,<D0TINT BlADR*3»5-3> f 

DBPNT V<;'H = = ?Z + l>tXP I6B.<D0TINT BlADR*3»6-3>t 

DBPNT \<ZZ==ZZ+l>tXP I7B.<D0TINT BlA0R+3»7-3>» 

DBPNT \<ZZ = = ZZ-H>tXP 18B.<DDTINT BlADR + 3»e-3> t 

RADIX 8 



XP SM.<DDTINT MSK>» 
XP SI .<DDTINT SAVPI>t 



000036 SETUWP=36 



EODT 
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231 
232 
233 
234 
235 
236 
2-»7 
238 
239 
240 
241 
242 
243 
244 
245 
246 
247 
248 
249 

250 
251 
252 
253 
254 
255 
256 
257 
258 
259 
260 
261 
262 
263 
264 
265 
266 
267 
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!DEFI;nE I/n TEVICE mnEvqmcS 
IFM E0DT«1,< 



XP PI . 
XP PTP 
XP PTH 
XP CDR 
XP TTY 
XP LPT 
XP DC. 
XP OlS 
XP PL I 
XP C«. 
XP DSK 
XP UTC 
XP UTS 
XP OCS 
XP oca 



4B11' 

.If'iiHllr 

,l?4Sllf 

,ll4niif 

.12i2=!llt 

,i24giit 

20JiBllt 

,13?flllt 

.140eiH 

IbPBll' 

.170Bllf 

,210311 t 

.214811f 

AijefiBl 1* 

B.3k?4Bll» 



XP 0F.277IHlit 
XP MTC,2?0Bllf 
XP MTS,224[?llt 
XP MTM,23ZPllf 
XP DLS,;i4k;Rilt 
XP MOf >261S31lT 
XP OTC,320Bllt 
XP 0TS,i24Biif 
XP TMC,^40Bllf 
XP TmS,344B11 >» 

;OEnNE EXTENDED OPERAT I liijS 

XP J0V,2554B11' 
XP JENi,2545Bllt 
XP HALT,2542f!llf 



ETDDT 
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IFE f:0DT<!17,< 



2*9 


!'BPZ?s; 


?640:"0 


002360' DOT 


'■ JS'' i^AVE 


27Z 


7v)?d:'i 


260040 


001353' 


PUShJ PiRE^OVB 


271 


7^7-172 


55424(2 


032261' 


►^LK? T.ESTU 


272 


?0C2?3 


2 7 4 2 4 


002261' 


'^LO T , FS'^U 


273 


!'0?(i,?4 


200220 


002274 ' 


"OVE w 1 f?S YMP 


271 


7iaf"075 


270240 


000004 


ADD T , w 


275 


?13("0?6 


602240 


777777 


TSVE T,-l 


276 


v.mwi 


5522;e 


002261' 


277 


C07010 


200240 


002260 ' 


"OVE LP^C' 


278 


!»0?0] 1 


274240 


71 4 


SU9 T , W 


279 


i'asiMii 


651240 


000005 


TSC T, T 


29K 


;'00ei3 


2003?B 


002260' 


^'OVE hl.PSGM 


2?1 


?0Z0]<1 


4303;^0 


000004 


y u R ''■ 1 1 w 


2^2 


"00015 


6023^''0 


000001 


TRVE Wl.l 


2'<3 


5'00016 


2 5 4 ? 


000021' 


J R S T DOT? 


2':4 


?00017 


33601^0 


00:1005 


$ K I p M T 


2. as 


:?0i"0?0 


33l0['-0 


002260' 


■^KIPL pRgm 


206 
207 
2H8 


?0!'0?1 


2022-:"0 


002260 1 aOTi 
> 


3! "CVE" W.PRGM 



ITWIS SEQUE-NfE IMITS SYM TABLE LOGIC 

;IF THE TOP OF THE U'.'DFFIiMEO Sym TAB DOES 

; MOT POINT TO SITTOM OF REGULAR SYm TAR/THEM 
I RE-INIT U-jr'EFINED SYM TABLE POINTER. E<;TU. 

(IF THE SY« TABLE P.^^TR AND THE PROGRAM 

! MA-'E (PRGMl PmTR en NOT ENO UP V ThF 

! SA"E PLACE. OR They Oo MOT BOTH START an 
; AN EVEV (OR BOTH ON OOP) LnCATION. OR 
I PRGM .GE. :', THEN RE-PJiT PRGM. 
SEVEN-ODO PRnBLEM 

iPorTFRs noN'T FKO together 

I IF PRGI- ,GE. 0. THEV RE- I VI T 
;H'G"^C( JQPSYM) 



EOPT 
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299 
29B 
291 
292 
293 
294 
295 
296 
2 97 
298 
299 
iM 
3C1 
302 
3?3 
31"! 
3i''5 
336 
3?7 

i'^a 

3?9 
310 
311 
312 
313 
314 
315 
316 
317 
318 
319 
320 
321 
322 
323 
3?'4 
325 
326 
327 
328 
329 
332 
331 
332 
333 
334 
335 
336 
337 
338 
339 
340 
341 



IFN 


ED0T^1(«,< 




DDTI 


1 CALLI 






MQVEI 


T.SVMSET 




r^OVEM 


T, JOBREN 




MOVEI 


P. PS 




INIT 1 


..17 




SIXBU 

HALT . 


■ .OSK. 




,-3 




SET2M 


CRaSH+3 




SET2M 


C0MNnS*3 




SET2M 


SNaP'-S 




SETEM 


CRASHS 




LOOKUf 


' 1, CRASH 




JRST NOCSH 



SETOM CRASHS 
USETI 1.1 
INPUT l.RSILST 

STATF 1,740230 
HALT .-3 
SETOM RSAVE 

NOCSH! INIT CM,0 

SIXBIT .SYS. 
XWD 0,CBUF 
HALT .-3 
SETOM COMAND 
LOOKUP CM.COMNDS 

NOLPT! SETZM COMAND 
SKIP"! COmAND 
JRST 001 
INIT DP.l 
SIXSIT ,lPT. 

xi^n LBUF.a 

JRST NOLPT 
ENTER OH, SNAP 
JRST NOLPT 

JRST oni 



ISET REENTER ADDRESS 



(CLEAR PPN 

ICLEAR'J PPN IN CASE FILODT SAVED AFTER STARTING 
lALSO GOnO PRACTICE TO BE SELF 1 M I T I AL 1 1! ING 
IASSUME no crash. SAVdE. PEEK AT CURRENT MONITOR) 

;let user Pass, he may want to peek at mon. 

) OH JUST WAK'T to type OUT VALUE OF SOME SYMBOLS 
IFLAG CRASH, SAV EXISTS ON OSK 



IFORCE READING OF "CURRENT" BLCCK 
I ON FIRST EXAMINE 



(ASSUME A COMMAND FILE 

INO FILE IF NOT FOUND 

lUSE TTY I/O 

(PREPARE FOR LPT OUTPUT IN AL MODE 

(TREAT AS ThO NO FILE 

(TREAT AS NO FILE IF CAN'T ENTER 



REPEAT 0,< 

HOW TO COPY MONITOR SYMBOL TABLE IMTO FILDDT 

1) USE FDDDIC. TO LOAD AN UNRUN VERSION OF YOUR MONITOR 
AS SAVED AFTER BUILDING OR LOADING, 

2) RENAME IT AS CRASH, SAV 

3) LOAD A PRISTINE VERSION OF FJLDDT AND START IT TO SET 
REENTER ADDRESS. 

4) TYPE »C REEMTER 

5) FILDDT WILL EXPAND AS NECESSARY AND COPY THE SYMBOL 
TABLE FROM CRASH, SAV INTO ITSELE 

6) AFTER CARRIAGE RETURN IS TYPED FILDDT IS DONE. 

7) SAVE FILDDT WITH A NE'»I NA!^E SO AS NOT TO CONFUSE IT WITH THE 
ORIGINAL FILDDT, SAV 



EDHT 
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342 

343 

344 

345 

346 

347 

348 

349 

350 

351 

352 

353 

354 

31^5 

356 

35 7 

3«8 

359 

If-B 

5^1 

362 

363 

3^4 

355 

366 

367 

368 

369 

370 

371 

372 

373 

374 

375 

3 76 

377 

378 

379 

SBC. 

3''l 
302 
3»3 
3 "4 
31:5 
3?6 
3 37 
338 
3P9 
39a 
391 
392 
69Z 
394 



THE MONITOR CAM PE LOAHEn I ,M A'^Y OF THREE WaYS(IN ORflER HE PREFERENCE); 

1. UNDER TIME SHARING WlJu REGULAR LOADER iK'J C0MMO«J 

2. UNDER REGULAR 10/3f MC'ITOR WITH REGULAR 17/3B LOADER t CO^-^O^ 

3. UMDER "SPECIAL 1 i)/3P MQ'i I TftR ( SPMON ) WITH t^uiLD 

THE 3 WAYS LEAVE OD T S YM ( 36 ) , JQRS YM ( 11 6 ) >. T3tiSYM(131) I 'M DIEEEREN'T STATt=:; 
DDTSY-' JOBSY" TSKSY" 



1, JUNK 

2, JUNK 

3, S, T ,PTR 



DDTSYMZ36 
T3['SYM = 171 

exter^mal job^e. j^bre'j 

symseti "ovei r.jobsym 
pushj p.eetch 

JRST ERR 
"OVE" T.jDBSYM 

"ovei r.odtsym 
pushj p, fetch 

JRST ERR 
^^OVE« T.nOTSTP 
?'0VE1 R,T3aSYM 

pushj PiFETch 

JRST ERR 
SKIPL JOrSYM 
JHST REGT3C 
SKIPL DDTSTP 
•'OVt T.JOBSYf 
RtGT3U! "UVEM T. JORSYM 
HLR£S T,T 
MOVMS T,T 
MOVE W.JOBEE 
AOOI w,1302l 

hRRZ Wl.W 
ADD w,T 
lORI W.1777 
f-ALLI W,ll 
HALT 

"OVE r.jdbsym 

MRRm kil.jOBSYM 
TCOPY! PUShJ P. fetch 
JRST ERR 
"OVEM TiS-lWl) 
ACS M 



S.T.PTR JUNK 

JUNK(''OM-^'EG) S.T.PTH 
S.T.PTR JUNK 



(POSSIBLE SYMBOL POINTER 



lYET ANOTHER CANDIDATE 
(ASSUME LOADED BY liS/30 



lOR IS JOBSYM A POINTER (-VE)? 
ILOADED by 17/30 
IDOTSYM A VALID POINTER (-VE)? 
INO TAKE jOaSYH AS THE POI^lTFR 
(SAVE IT OVER OLD JOBSYm 

(LENGTH OF SYMBOL TABLE 

(LEAVE SPACE FOR COMMAND S LPT BUFFERS 

( OR DSk SUFFERS AND EXTRA SYMBOL OEFNS. 

(SAVE LOG FOR CuPY 

(ADD TABLE LENGTH 

(REQUEST INTESRAL « OF K. 

(GET CORF 

I UGH! 

(WHEREABOUTS OF MONITOR SYMBOLS 

(NOW POI^'^ TO FIlODT SYMBOLS 

(GET A WORD 

(STASH IT 
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395 
396 
397 
398 



iOnj'" P.TCOPY 
jRST NOUPT 

DUTSTP; ? 

> 



IGO TRY IT 

JS4VE POSSIBLE SYMBOL POINTER 
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399 

til 

4?2 
4''3 
4^4 

405 

4^6 

4?7 

4518 

409 

4]0 

411 

412 

413 

414 

415 

416 

417 

418 

419 

4?0 

421 

422 

423 

424 

425 

426 

427 

428 

499 

430 

431 

432 

433 

474 

435 

436 

437 

438 

439 

440 

441 

442 



?0Ca22 
000023 
000024 
000025 
000026 
000027 
000030 
000031 
000032 
000033 
000034 
000035 
000036 
000037 
000040 
000041 
000042 
000043 
000044 
000045 
000046 
000047 
000050 
000051 

000052 
000053 
000054 
000055 
000056 
000057 
000060 
000061 
000062 
000063 
000064 
000065 
000066 
000067 
000070 
000071 
000072 
000073 



260040 
6210?0 
2002<i0 
251240 
402000 
201040 
200240 
202240 
63005"0 
630000 
402000 
4020''0 
201240 
202240 
62107-0 
6210;-'0 
4020i-"0 
402000 
201240 
202240 
200240 
20224a 
4020?0 
402000 

260040 
301240 
303240 
2540E0 
640240 
6030^0 
2540'"0 
307240 
305240 
254000 
254000 
200100 
303240 
254000 
231100 
1352''3 
305200 
2540^4 



DDl: 
DDL 



002421' 

00^1010 

003147' 

000012 

002251' 

003220' 

002261' 

002262 ' 

003150' 

003151' 

002247' 

B02252' LISl! 

000001 LIS2: 

002256' 

040200 

030044 

002253' 

002265' 

000006 

002356 ' 

003152' 

003016' 

002257' 

002250' 



DD2! 



LISl 



LIS0! 



Ll: 



LIRPR! 



002430 ' 

300141 

000172 

000057' 

000040 

000M40 

000065' 

000132 

000101 

000065' 

000252' 

00300b 

000137 

000151 ' 

000003 

002506 ' 

000617 

000000 ' 



L2: 



L21! 



iCLOSE AMY OPE^ REGISTER 

ILOAO ACS 
SPARENiTHESES COUNT 



PUShJ P.rRF 

TLZ F.ROE 

MOVE T.CXWO SCHM.SCHT 

RLT T,ODF 

CLEARM PR^lC 

MOVEI P. PS 

MOVE T.EST'.J 

MOVEM T.ESTUT MWIT UNOEFINED SYM ASSEM 

ro? F.CXWO 777777-R0r-STF.LFl+CFl+S8F*2+Q2n 

TD2 F,[XW0 777777-P0f-STF-FAF-SaF,NAF] 

clearm. wro 
clearm.frase ■ 

'^OVEI T,l 
MOVEM T.FRASEl 

tl2 f,mlf*dvf 

tlz f,cf*ccf*sf*fpf ;turn off comtroi , syl. 

clearm.syl 

clearm.sym 

MOVEI T,6 

i^OVE" T.TEM 

MOVE T.CPOINT 7, TXT] 

MOVEM T.CHP 

C:LEARM,DE''>j 

CLEARM,kRD2 



PERIOD Fi AG 



iiMiT Symbol coumter 

ISETUP FOR OPEVAL SYMBOL 



PUSHJ P.TIN 

CAIL T,"A"+40 

CAILE T,"£"+40 

JRST ,*2 

TftC T,40 

TLME F.CF 

JRST L21 

CAIG T."Z" 

CAIGF T,"A" 

JRST .+2 

JRST LET 

MOVE H.T 

CAILF T,137 

JRST ERR 

IDIVI R.3 

LCR '^l,9DISP(R♦l) 

rAIGE W.mULT-DDT 

JRST ODT(W) 



IPICK UP CHARACTER 
(LOWER CASE A 
ILOWER CASE Z 

ICMANGE LOWER CASE TO UPPER CASE 
ICONTROL FLAG 



iZ 

!A 



;0ISPATCH TABLE HAS ENTRIES ONLY ,LE. 137 

(REMAINDER GIVES COLUMN', QUOTIENT GIVES' oDW 

(GET 12 RIT ADDRESS FROM DISPATCH TARLF 
(FIRST EVAL ROUTINE 



EDDT 



V022 -EXEC MODE DDT 
? Jur4 69 



443 
444 
445 
446 
447 
448 
449 
45B 
451 
452 
453 
454 
455 
456 
457 
458 
459 
460 
461 



H00074 
000075 
00(11076 
(500077 
000100 

000101 

000102 
000103 

7001514 
001^105 
P'00106 
000107 
000110 
000111 
("00112 
000113 
000114 
000115 



200240 
627000 
254000 
200240 
336000 
207000 
202240 
254000 

557240 
322240 
260045 
254000 
623000 
210240 
6070fl0 
302210 
254000 
7540;i0 



002253' 
000020 

000326' 

003153' 

002247' 

000005 

002360' 

000106' 

002360' 

000167 ' 

000000 

000104' 

00i'i002 

000005 

000t;04 

00(1626 

000116' 

000626' 
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MOVE T.SyL 
TL?N F.LTF 
ipcT pnupR 

MOVE T.CXWD OPEVAL.E"AL] JGET ADDRESSES OF LD1KUP ROUTINE'^ 
SKIP"' WRD MF C(WRD)=0, CALL QPEVAL FIPST, QTHEHWI'SE EVAL FIRST 

MOVSS T 
MOVE" T.SAVE 
JRST L213 



L212! 
L2t3: 
L4: 



HLP^S T, 
JUMPF. T, 
PUSriJ P. 
JRST L21 
TL?E F.M 
■^CVN T,T 
TLNN F.S 
CAIE hiiL 
JRST .*2 
JRST LPR 



SAVE 

UNDl 

(T) 

2 

F 



IGET ADDRESS OF THE OTHER LOOKUP ROUTINE 
(IF iQR=0, THEN SYMBOL UNDEFINED 
ICALL OPEVAL OR EVAL 

(SYMBOL NOT FOUND 



PRN-DDT 
N 



462 

463 
464 
465 
466 
467 
468 
469 
470 
471 
472 
4 73 
474 
475 
4 '6 
477 
478 
479 
4 = 
4=11 
4.^2 
4^53 
4^<4 
<)»5 
4B6 
4-17 
4fi6 
4B9 
400 



000116 
000117 
000120 
000121 
000122 
000123 
00;"1?4 
000125 
000126 
00012' 

001' 170 
000131 
:'00l32 
"00133 
000134 
000135 
000136 
000137 
00:»140 
000141 

100142 
000143 
0014 4 
000145 
100146 
0001^17 
!»00150 



250240 
607010 
223240 
623010 
233240 
3052''0 
2540M 
273240 
3052.^0 
254014 

270240 
60301k' 
500240 
202240 
607010 
200240 
402010 
2003?0 
3 1 6 3 1' 
?640'0 
303210 
254010 
3072f'0 
254014 
261040 
3360-'0 
2540"4 



002256' 

040000 

002256' 

040000 

0022'^6 ' 

000622 

00:1000' 

002252' 

000660 

000000' 

00?247 ' 

100000 

002247 ' 

002247 ' 

000001 

002254 ' 

000012 

002262' 

002261' 

000144 ' 

000736 

000151' 

00.1664 

000000 ' 
000512' 

002251' 

000000' 



L5: 



EXCh T.FRASEl 
TLNH F.OVF 
TMUL" T.FRASEl 
TLZE F.DVF 
IDIV° T.FRASEl 
CAIGF W.ASSEM-DDT 
JRST DOTIW) 
ADDH T. ERASE 
CAIGF W.SPACE-DDT 
JRST DOT(W) 

ADD T.WRO 

TL-JF F.TIF 

HLL T.WRD 

"UVEM T.WRD 

TL^'K F.OF 

MOVE T.L^■■T 

CLEARM.R 

"OVE Wl.ESTUT 

rA"K m.ESTU 

JHST L5 

CAILf W.CARR-OOT 

JRST ERR 

CAIG W.RPRN-ODT 

JRST DDT(W) 

°USh P.KILRET 

SKIPv pRnC 

JRST DOT(W) 



IMULTIPLV OR DIVIDE 



ITRU^ICATE I^niCATOR FLAG 
(TRUNCATE 



EDHT 



V0S2 -EXEC MODE DOT 
2 JUN 69 
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491 












492 


000151 


2013^0 


000077 


ERR i 


WOVEI Wl,"?" 


493 


000152 


254000 


000156' 




JRST WRONGl 


404 


000153 


201300 


00C175 


UNDEF: 


MOVE I W1,"U" 


495 


000154 


254000 


000156' 




JUST WR0\^G1 


496 


000155 


2003?'0 


003154' 


WRONG! 


MOVE Wl.CASCII 


497 


000156 


231040 


003220' 


WRONGl! 


MOVEI P. PS 


498 


000157 


260040 


002240' 




PUSHJ P.TEXT 


499 


000160 


260040 


002424' 




PUShJ p. LOT 


530 


000161 


260040 


002456' 




PUSHJ P, LISTEN 


5'/)l 


000162 


255000 


000000 




JFCL 


502 


000163 


254030 


000026* 




JRST DD2 


5('3 


000164 


201040 


003220' 


RET : 


MOVEI P. PS 


504 


000165 


260040 


002424 • 




PUShJ p. LOT 


505 


000166 


254000 


000026' 




JRST 002 



/XXX/] 



ITVPE TAB 

IGOBBLE AN'' INPUT CHARACTER 



ICOMMON RETURN FOR TABl.JRST LIS 



EDHT 



V0?2' 
2 JU» 



69 



-EXEC MODE DDT MACHO. V3A 15106 4-JUN-69 PAT-E li 



5'>6 
5P"7 
iPS 
5t»9 
510 
511 
512 
513 
51-1 
515 
516 
517 
518 
519 
57B 
5?1 
522 
5?3 
6?4 

525 
526 
527 
528 
529 
530 
531 
532 
533 
534 
535 
536 
537 
538 
539 
540 
5tl 
542 
543 
544 
545 
546 



f0Cl67 

("efiya 

!"0C171 
Bl3f>l72 
00C173 
!»0PI174 
!"0Hl75 
C100176 
1^00177 
(»0(?I21»0 

(iac2P'i 

C0(«21'2 

S!002('3 
3002(»4 
J)002C5 
f 0l'2!'6 
f002C7 

000210 
000211 
000212 
000213 
0002] 4 
000215 

000216 
000217 
000220 
000221 
000222 

000223 
000224 
000225 
000226 
00ii227 
000230 
000231 
000232 
000233 



2001"0 
574140 
240140 
260040 
305200 
607000 
254000 
332000 
254000 
201240 
3022J''0 
260040 

2101?0 
2731^.0 
200240 
661240 
202242 

550240 
603000 
661240 
202242 
201240 
254ei'0 

260040 
200100 
3251/0 
200242 
334300 

2703''0 
312246 
2540?0 
3121H0 
2540n0 
260040 
260040 
270i;"0 
2540:»0 



UNOl: 



002262' 

002262- 

777777 

000415' 

000622 

000010 

000153' 

002251' 

000153' 

000043 

000622 

002440' 

003155' 

002262' 

002265' 

040000 

000000 

002272' 

000002 

400000 

0000?il 

000000 

000110' 



002421' QUESTN! 
002261' 

000022' QUESTl: 
000000 
002261' 

003155' f3UEST2; 

000000 

000223' 

000006 

000232' 

002103' 

002421' 

003155' nUEST4! 

000220' 



"lO^l R.ESTUT 
HLRE SiE5TUT 
ASH ?,-l 
PUShJ p,EVAL2 
CAIN' »i,ASSEM-DnT 
TLNN F.HOF 
JRST UNDEE 
SKIPE PRMC 
JRST UNDFF 
".OVEI T,"#" 
CAIE W.ASSEM-DDT 
PUSHJ P. TOUT 

-^OVN R.CXWD 2.2] 
AOna R.ESTUT 
MOVE T.SVM 
Tun T, GLOBAL 
'':DVE^ T,(R) 

HHR? T.LLOCO 
TL'JE F.MF 
TLO T, 400000 
MUVE" T,1(R) 
MUVFI T,0 
JRST L4 

OUSHJ P.CRF 
10VE R.ESTU 
JUMPCE R.DDl 
i-OVE T. (S) 
SKIPA WI.lSTU 

ADD '.-'l.CywD 2,2] 
CAME T,(wl) 
JRST aUEST2 
CAME H.k.1 
JRST QUEST4 
pushj P.SPT 
=UShJ P.cRF 
ADD B.rXWD 2,2] 
JRST QUESTl 



lUNDFFlNirD SYM ASSEMBLER 
ISETUP EVAL END TEST 



ILIST UNDEFIVEO SYMBOLS 



EDDT 



V0^2 

?. JUM 69 



-EXEC MODE DDT MAC«n.v36 19,06 4-j,jN-69 p,,e ^j 



547 


!!00234 


548 


000235 


549 


000236 


550 


000237 


551 


000240 


552 


000241 


553 


000242 


554 


000243 


555 


000244 


556 


000245 


557 


000246 


558 


000247 


559 




560 


000250 


561 


000251 


562 


000252 


563 


000253 


564 


000254 


565 


000255 


566 


000256 


567 


000267 


568 


000260 


569 


000261 


570 


000262 


571 


000263 


572 


000264 


573 


000265 


574 


000266 


575 


000267 


576 


000270 


577 


000271 


578 


000272 


579 


000273 


5aB 


000274 


581 


000275 


582 


000276 


583 


000277 


584 


000300 



405240 
6030(!0 
2540M0 
200200 
2422'»0 
270200 
202200 
200200 
2212^0 
?702''B 
2022^10 
344240 

334240 
201240 
641000 
6270PI0 
302240 
665000 
6650:^0 
25400 k) 

627a!?.e 

334300 

2103^0 

202300 

402000 

275240 

661000 

200200 

201105 

221200 

270200 

375000 

254000 

202200 

136100 

202200 

254000 



NUM ! 



000017 

020040 

000306 ' 

002253' 

000033 

000005 

002253- 

002257' 

000012 

000005 

002257' 

000266' 



003156' nOLLAR 
000135 PtRC! 



020004 

420024 

000105 

000020 

400000 

000265' 

000002 

002253' 

002253' 

002263' 

002257' 

000066 

000005 

002265' 

000066 

000050 

000005 

002356' 

000052' 

002265' 

003816 ' 

002265' 

000052' 



let; 



LETi: 
LEJA! 

Lt2! 



AND] T,17 
TLNE F,Cr+Fpr 
JUST NMl 
i^OVE W.SYL 
LSH w,3 
4 DO |J,T 
•^OViM W.SYL 
"UVE W.OFN 
IMULI W,l2 
ADO V,J 
MOVE" W.DEN 
40JA T.LEIA 

SKIPA T, [46+101-13] 

HOVEI T, 47+101-13 

TLC F,SF+FPF 

TL2N' F.LTF + FFF + SF + Fpr 

CAIE T.105 

TLOA F.LTF 

TLOa f.fff 

JHSr LETl 
TL7r, F.MF 
SKIPA Wl.SYL 
'■lOVK Wl.SYL 
"DVEK- Wl.FSV 

hlearm ofn 

'5Uei T, 101-13 
TLO r,SF+QF 
MUVE k.SVM 
"OVEI Ril01-13(T) 
IMULI W,50 
ADD W,T 
SOSgF TEh 
JRST L2 
MOVEM W.SYM 
IDPB ft.CHP 
hOVLM W.SYM 
JRST L2 



IT HOLDS CHARACTER 



ICONVERT TO PECIMAL 



(RADIX 50 $ TO BE 

IPERCENT SIG\' 

(EXPONENT IFF L TF ' .FEF ' » ( T=105 ) .SFSFPF =1 

I E 



JFORK RADIX 50 SYMBOL 

.'CONVERT TO RADIX 50 
IIGNORE CHARACS AFTER 6 



EODT 



V022 -EXEC MODE DDT 
2 JUM 69 



MACRO. V36 19S06 4-JUN-69 PARE J.3 



585 


0003511 


250240 


002250' 


NUMl; 


EXCH T,WRD2 


586 


f!003!"2 


221240 


000012 




IMULI T,12 


5R7 


?003?3 


272240 


002250' 




ADOM T.WR02 


5B8 


(^0031^4 


560ai;"-0 


000001 




TRO F,Q2F 


589 


PI00305 


2540"i0 


000052' 




JRST L2 


590 












591 


("0PI306 


6030?0 


000040 


NMi : 


TLNE F.CF 


592 


(»003("7 


2640110 


000301' 




JHST NUMl 


593 


000310 


2013'''ia 


000006 




MOVEI Wl,6 


594 


000311 


3 50 00 


000312' 




AOS MMIA 


595 


fBeisiz 


201340 


000030 


NIMlAi 


MOVEI W2,0 


596 


000313 


2061,;i0 


201430 




MOVSI R. 201400 


597 


("00314 


522340 


000001 


NMlAi: 


THZE W2,l 


5 96 


000315 


164ii?.6 


002223' 




FMPR R,FT(W1) 


599 


00H316 


322340 


000321' 




JUMPF W2,NM1B 


6f"0 


?00317 


242340 


777777 




LSH W2.-1 


6(Z1 


C00320 


3673.'0 


000314' 




SOJG Wl.MMlAl 


6C2 


000321 


205336 


211000 


NMIB! 


MOVSI W1,2H000(T) 


5C3 


000322 


164l«e 


000006 




FMPR R,W1 


6 a 4 


000323 


14711^0 


002264' 




FAORR RjFH 


6H5 


000324 


2021!?0 


002253' 




MOVE" R.SYL 


6516 


000325 


344240 


000266' 




AOJA T.LElA 


607 












fS 


P00326 


6070?0 


400000 


POWER! 


TLNN F.FEF 


6R9 


00K327 


2540110 


000110' 




JRST Lt iN 


610 


000330 


302200 


000624' 




CAIE W.PlUS 


611 


000331 


3062'?0 


000623' 




CAIN W. MINUS 


612 


{"00332 


662000 


004000 




TROE F.POWF 


613 


000333 


6240'-50 


004000 




TRi^A F.POwr 


614 


^00334 


25401^4 


000000 




JRST (W) 


615 












616 


000335 


200340 


002257' 




MOVE W2.DEN 


617 


000336 


402000 


002252' 




CLEARM FRASE 


618 


P0033/ 


2013;"0 


002222' 




MOVEI Wl,FT-l 


619 


000340 


6230'?'0 


0000-72 




TLZt F.MF 


6?0 


000341 


2013?'0 


002231' 




MOVEI W1,FT01 


6;^1 


PI00342 


334240 


002263' 




SKIPA T,FSV 


622 


000343 


242340 


777777 


P0W2! 


LSH W2,-l 


623 


00?344 


622340 


000001 




THZE W2.1 


6'4 


000345 


164246 


000000 




FMPR T.twD 


625 


000346 


322310 


000110' 




JUMPF W2,L4 


626 


000^47 


364J^0 


000343' 




■lOJA W1,P0W2 



IFORM NUMBER AFTER $ 



)FORM FLOATING POINT NUMBER 



(COMPUTE VALUE OF NEW DIGIT 
lADD VALUE INTO FLOATING NO, 



NO EXPONENT 



I E*- 



EDDT 



V022 -EXEn MODE DDT 
2 JUN 69 
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6-7 


?00350 


200240 


002271' 


PERIODI 


I MOVE T.LLOC 


628 


000351 


503000 


000004 




TLNt F.SF 


629 


000352 


200240 


002257' 




MOVE T.DEN 


632 


000353 


202240 


002253' 




MOVEM T.SYL 


631 


000354 


6030'»0 


020000 




TLME F.FPF 


632 


000355 


661000 


000020 




TLO F.LTF 


633 


000356 


667000 


020005 




TLON F.FPF + SF + rjF 


634 


000357 


201240 


000000 




MOVEI T,0 


635 


000360 


231240 


000400 




IDIVI T,400 


636 


000361 


3320K0 


000005 




SKIPE T 


637 


000362 


641240 


243000 




TLC T. 243000 


638 


000363 


641300 


233000 




TLC Wl, 233000 


639 


000364 


140240 


003157' 




FAD T,:0] 


610 


000365 


140300 


003157' 




FAD W1.C0] 


641 


000366 


144240 


000006 




FADR T.Wl 


642 


000367 


202240 


002254' 




MOVEM T,FH 


643 


000370 


513000 


000312' 




HLL2S NMIA 


644 


000371 


201240 


000045 




MOVE! T,46 


645 
6<i6 
647 


"00372 


2540^0 


000257' 




JRST LE2 


000373 


201210 


002275' 


PILOCi 


MOVEI T.SAVPI 


648 


000374 


665240 


000000 


nUANIN! 


TLOA T.(DDTINT) 


619 


000375 


200240 


002254' 


OUAN! 


MOVE T.LWT 


6'50 


000376 


202240 


002253' 


QUANl : 


MOV£M TpSYL 


6S1 


000377 


6610?0 


000005 


0UAN2! 


TLO F,SF+QF 


652 


000400 


6210:'ie 


013040 




TL2 F.CF+CCF 


653 
654 
555 


000401 


254000 


000052' 




JRST l2 


000402 






CONTRO: 




656 


000402 


201240 


000044 


IFN FU0T«1,< MOVEI T,' 


657 
658 
659 


000403 


260040 


002440' 


> 


PUSHJ P.TOUT 


000404 


663000 


000040 


TLOE F,CF 


660 


000405 


661000 


010000 




TLO F.CCF 


651 


:"004?6 


254070 


000052' 




JRST L2 



ISYLLABLE STARTED 



IHAS A PERIOD BEEN SEEN BEFORE? 
lYFS, TWO PERIODS MAKES A SYMBOL 



INORMALI?E T AND Wl 



(RADIX 50 PERIOD 



lADR SETUP FOR $1 

IMARK FOR ADR INTERNAL TO DDT 

IPICK UP LAST QUANTITY TYPED 

JWRD.SYL STARTED 



ISOME KIND OF ALTMODE 

;s 

(TYPE OUT % 



FDDT 



bl-2 
563 
664 
665 
666 
667 
568 
669 
672 
671 
672 
673 
574 
675 
676 
677 
678 
679 
6S0 

681 

6»2 

683 

684 

6S5 

686 

687 

688 

689 

690 

691 

602 

693 

694 

695 

695 

697 

598 

699 

TM 

7PI1 

7PI2 

7!'3 

75"4 

705 

71(16 

7^7 

7;i8 

710 



va72 

? JU" t> 

PI0!'410 
(^0I?411 
["00412 
?ia0413 

(^00414 
000415 
000416 
00041 7 
000420 
000421 
000422 
000423 
000424 
000425 
000426 
000427 
000430 

000431 
000432 



-EXET MODE DDT MAC«0.V3fi 19!06 4-JIJN-69 PAHE 15 



2001^0 
525300 
574160 
240140 
254070 

270100 
3310''0 
200120 
347140 
200242 
430240 
607240 
665300 
612240 
254000 
607240 
2540''0 
200242 

350001 
263040 



000433 
000434 
000435 
000436 

000437 
000440 
000441 
000442 
000443 
000444 
000445 
000445 
000447 
000450 
000451 
000452 



002260' 
237777 
002274' 
777777 

000420' 

003155' 
000002 
002274' 
000432' 

000000 

002265' 

740000 

100000 

000006 

000414' 

340000 

000414 ' 

000001 

000000 

000000 



FVAL; 
EV4L0 ' 



260040 
202240 
2013?!0 
2012''B 
260040 
306240 
254000 
603000 
254000 
334000 
260040 
316240 
364300 
241240 
246200 
364300 



MOVE R.PRGM 

uRLOT Wl,37777tOELl 

HLRt S.iSSYMP 

4SH S.-l SSETMP END TEST 

JRST EVAL3 



ILOOK UP SYHBOL 



EVALli 
EVAL2! 



EVAL3! 



CPOPJl ! 

CPOPj! 



ADD R.CXWO 2,2: 
SKIPL R 
KOVE R.C'SYMP 
AOJG S.CPOPJ 
MOVE TifR) 
XOR T.SYM 
TLNN T.PNAME 
TLDA WlftOCAL 
TONE T.Wl 
JRST EVAtl 
TLNN Ti34000l? 
JRST EVALl 
MOVE T,1(R) 

AOS (P) 
PQPJ P, 



MRNASFEP IF NO SYMBOL FOUND 



iFOUMD SYMPOL. SKIP 



JHIT 40 - DELETE OUTPUT 

i 20 - DELETE INPUT 

! 10 - LOCAL 

; 04 -GLOBAL 

i MO BITS - PROGRAM MAME 



002502' 

002253' 

000005 

000000 

0025fl2' 

000033 

000377' 

000040 

000450 ' 

000000 

002502' 

002253' 

000453' 

777771 

000007 

000445' 



TEXI I 



TEXI2: 



000453 246200 777735 TEXI3: 

000454 321300 000376' 

000455 242240 000007 

000456 364300 000454' 



PUSHJ P.TEXIN 
MOVE" T.SYL 
MDVEl Wl,5 
MOVEI T-1,0 
PUSHJ P,TEXl\i 
CAIN Ti33 
JRST QUAM2 
TLNE F.CF 
JRST SIXRIN 
SKIP4 

PUSHJ P.TEXIN 
CAMN T,SYL 
SQJA wl,TEXI3 
ROT T,-7 
LSHC T-1i7 
SOJA Wl.TEXl? 

LSHC T-1,-43 
JUMPL Wl.QUANl 
LSH T,7 
SOJA Wl. .-2 



IIMPUT TEXT 



INEW ALT MODE, ESCAPE 



EDDT 



2 J^l^■^■ 



59 



-EXEr woOE DDT ^AnHn.V36 19:06 '(-JUN-69 PACE 16 



711 

7J2 

713 

714 

715 

715 

717 

718 

719 

720 

721 

7 22 

723 

724 

725 

726 

727 

728 

729 

7,10 

731 

7.12 

733 

734 

735 

736 

737 

738 

739 

7 40 

741 

742 

743 

744 

745 

746 

747 

748 

749 

75(2 

751 

752 

753 

754 

755 



P100457 
000460 
000451 
^00452 
000453 
000464 
000465 
000466 
000467 
000470 
000471 
0H0472 
000473 
000474 
000475 
000475 
000477 
000500 
000501 

000502 
000503 
000504 
000505 
000505 
000507 
000510 
000511 
000512 



000514 
000515 
000516 
000617 
000520 

000521 
000522 
000523 
000624 

000525 
000625 
000527 



260040 
31624(j 
254000 
301240 
303240 
3340n0 
640240 
301240 
303240 
254000 
405240 
640240 
241240 
2462i'0 
3643'i0 
200240 
321300 
242240 
3 54 3 7 

60700! {! 
254070 
25 0040 
254fc?t! 
201240 
503000 
201240 
137240 
254000 



002502' 

002253' 

000476' 

000141 

000172 

000000 
000040 
000040 

000137 

000151 ' 

000077 

000040 

777772 

000006 

000457 ' 

000004 

000375' 

000006 

000477 ' 

000070 
000151' 
000407 ' 
000513' 

000002 

010000 

000001 

003160' 

000164' 



sixaii: 

S IXHIN; 



SIXBI2! 



kill: 



PUSHJ P.TEXIN 
nAM\ T.SYL 
JRST SIXqi2 
CAIL T,"4"+40 
CAILF T,"E"t40 
SKIPA 
TflC T,40 
CAIL T," " 
CAILF T,"^" 
JRST ERR 
ANOl Ti77 
TRC T,40 
ROT T,-6 
LSHC T-1,6 
SOJA WliSIXBIl 
MOVE T.T-l 
JUMPL Wl.QUAMl 
LSH T,5 
SOJA Wl,.-2 



I^iPUT TEXT (SIX8IT) 



MS CHAR BETWEEN LOWER CASE 

: LOWER CASE "?"7 

INO 

lYES, COMVERT TO UPPER CASE 

I IS CHAR IN SIXBIT SET? 

INO 

lYESi MASK TO 6 BITS 

.•CONVERT TO SIXBIT FORM 



AND 



TLNN F.LTF 
JRST ERR 
PUShJ P.EVAL 
JRST KILLl 
"OVEI T,DELO/200030 
TLNE F.CCF 
MOVEI T, DELI/200000 
DPB T, [POINT 2, (R) .m 
KILRFTI JRST RET 



000513 200100 002251' KILLi: 



325102 
260040 
254000 
260040 
254000 

200140 
273140 
200203 
202202 
200203 
2022''.2 
263040 



000153' 
000410' 
000164' 
000521' 
000516' 

003155' 
002261' 
777775 

000000 

777777 

000001 
000000 



KILL2: 



REMUN ! 



MOVE R.ESTU 
JUMPGE R.UNOFF 
PUShJ P.EVAL0 
JRST RET 
PUSHJ P. REMUN 
JRST KILL2 

MOVE S.CXWD 2.2] 
AODB S.ESTU 
MOVE W.-2(S) 
MOVE" W.(R) 
MOVE W.-l(S) 
»'OVEM W.l (R) 
POPJ P. 



JOFLETE SYMBOLS 



;DElFTE OUTPUT 

INO INPUT OR OUTPUT 
ILFFT 2 BITS IN SYMBOL 
lUSED AS A CONSTANT 



IREMOVF UNDEFINED SYMS 



IREMPVE ONE UNDEFINED SYMBOL 



EDDT 



V0?2 -EXEC MODE DOT 
2 JUN 69 



MACRO. V36 19!06 4-JUN-ft9 PACE 17 



756 


I?l0fl530 


607000 


000020 TAG 


'• TLNN F.LTF i 


7'57 


000531 


254000 


000151' 


JHST ERR J GC 


TiB 


000532 


603000 


001000 


TLNE F .FAF i 


7S9 


fl00533 


254000 


000540' 


JRST DEFIN 


760 


5)ia0634 


603000 


000040 


TLNE F,CF 


761 


t!00535 


254000 


000504' 


JHST SETNAM 


762 


000S36 


200200 


002272' 


MOVE W.UUOCO 


763 


l?00637 


552200 


002267' 


MRRBM W.DEFV 


764 










765 


fi0f540 


260040 


000407' OEFIn: PUSHJ p.eval 


766 


000541 


254000 


000543' 


JRST DEFl 


767 


000542 


254000 


000553' 


JRST DEF2 


768 


000543 


210100 


003156' DEFl! MOVN R,[XWD 2.2 


769 


000544 


273120 


002274' 


ADDS R,(?SYMP 


770 


000545 


550240 


002251' 


MRR? T.ESTU 


771 


000646 


275240 


000002 


SURI T.2 


772 


000547 


504240 


002251' 


MRU T.ESTU 


773 


000650 


542240 


002261' 


HRRM T.ESTU 


774 


000631 


335000 


002261' 


SKIPGE LSTU 


775 


000552 


261242 


777777 


BIT T,-1(R) 


776 


0005'53 


200240 


002267' DEF2! MOVE T.DEFV 


777 


0005'5't 


202242 


000001 


MOVEM T,1(R) 


778 


000555 


205240 


040000 


NOVSI T, GLOBAL 


779 


000556 


437240 


002265' 


lORB T.SYM 


7813 


000557 


202242 


000000 


mOVEM T, (R) 


781 
782 
783 


000660 


200100 


002261' 


MOVE R.ESTU 


000561 


325l"i0 


000164' DEF3! JUMPGE R.RET 


784 


000562 


200240 


002265' 


MOVE T.SyM 


7fl5 


000563 


312242 


000000 


CAME T,(R) 


786 


000564 


254000 


000602' 


JRST DEF4 


787 


000565 


200140 


002267' 


MOVE S.DEFV 


7S8 


000566 


3350!?2 


000001 


SKIPGE. 1(R) 


739 


000567 


210140 


000003 


MOVM S.S 


700 


000570 


261040 


000002 


PUSH P.R 


791 


000571 


200132 


000001 


MOVE R,1(R) 


792 


000572 


260040 


001454' 


PUSHJ P. FETCH 


793 


000573 


?540'0 


000151' 


JRST ERR 


794 


000574 


270140 


000005 


ADO S,T 


795 


000575 


542140 


000005 


HRRm S.T 


796 


000576 


260040 


001446' 


PUShJ p.dep 


797 


000677 


255000 


000000 


JFCL 


798 


0006('0 


262040 


000002 


POP P.R 


799 


000601 


260040 


000521' 


PUSHJ P.REMUN 


BTiS 


000602 


2701!'0 


003155' nEF4! ADD R.[XWD 2,2] 


8i'l 


000603 


2540,10 


000561' 


JRST DEF3 



NO LETTERS !S ERROR 
GO SAY FRROR 

OEFINF, SYMBOLS 

IA<8I 

IDEFINE SYMBOL AS OPEN REGISTER 



(DEFINED SYMRQLT 
INO - DEFINE 
lYES, REDEFINE 



23 



IMOVE UNDEFINED TABLE 2 REGISTERS 



IPUT IN NEW VALUE 

(PUT IN NEW SYM AS GLOBAL 

(PATCH IN VALUE FOR UNDEF SYM ENTRY 



IREMOVE THE NOW DEFINED SYMBOL 



EDDT 



V0?2 -EXtC MODE DDT 
2 JUK 69 



MACRO. V3fr 19:06 4-JUN-69 PAT-E !« 



8?2 
8n3 
8IM 
835 
8«6 
8«7 
8S!B 
85(9 
810 
811 
812 
813 
814 
815 
816 
817 
818 
819 
820 
821 
822 
823 
824 
825 
826 
827 
828 
829 
850 

an 

832 
833 
834 
835 
836 
83 7 
838 
839 
840 
841 
842 
843 
844 
845 
846 
847 
848 
849 



ISET PROGRAM NAME - OOLLAR COLON 



0006«4 200120 002274' SETNAM! MOVE R.SSYMP 

P!00605 2002^0 000002 SETli MOVE WiR 

000606 325100 0001531 SETii! JUMPGE R.UNDEF 

0006?7 200242 000000 MOVE Ti(R) 

000610 2701(!0 003155' ADD R.CXWO 2.2] 

000611 603240 740000 TLNE T.PMAME 

000612 254000 000606' JRST SET2 

000613 312240 002265' CAME T.SYM 

000614 254000 000605' JRST SETl 

000615 2022710 002260' MOVE'^ W.PRGM 

000616 254000 000154' JRST RET 

;»«»ROUTINES BEYOND HERE EVALUATE THEIR ARGUMENTS** 

000617 6650C0 000300 MULTi TLOA FiPTF*HLF !• 

000620 661000 040100 DIVOl TLO F,DVF+PTF (SINGLE OUOTE 

000621 264000 000041' JRST Ll 



000622 
000623 
000624 
000625 

000626 
000627 
000630 
000631 
000632 
000533 
000634 
000635 

000535 
000637 
000640 
000641 

000642 
000643 
000644 
000645 
000646 
000547 
000650 
000651 
000 6 52 
000653 
000554 
000555 



254000 
651000 
6510110 
264000 

311040 
2540l'0 
261040 
261040 
261040 
261040 
350000 
254000 

515200 
437200 
561000 
2640(^0 

2001'7!0 
205240 
663000 
264030 
542l?0 
510240 
1353'^0 
2313W0 
242li'6 
270240 
273240 
254000 



000624' ASSEm: jRST PLUS 

000002 minus: TLO FiMF 

000100 PLUS; TLO F.PTF 

000036' JRST LIS2 



003161' LPRN: 

000151' 

000000 

002247' 

002252' 

002256' 

002251' 

000030' 



CAML P.CXWD LPDL-4,0:I 

JRST ERR 

PUSH P.F 

PUSH P.WRD 

PUSH P.FRASE 

PUSH P.FRASEl 

AOS.PRMC 

JRST LIS 



000020 INniRECT; HRLEI W.2a 
002247' lORB W.WRD 

000001 TLO F,OF 

000035' JHST LIS2 



000005 
000000 
200000 
000656 
000643 
000002 
003162 
000007 
000027 
000002 
002247 
000561 



ACCF! MOVE R«T 
acccf: MOVSI T,,-. 

TLOE F.COMF 
I JRST ACCFl 

' HRRM R, ACCCF 

HLL2 T.R 
' LDB '-ll.CPOINT 3,WR0,2] 

IDIVI W1,7 

LSH R,27(W1) 

ADO T,R 
' ADDB T.WRD 

' JRST SPACE+1 



l# 

ILEFT PARENTHESIS 
(RECURSE FOR OPEN PAREN 



19 



;COMMA PROCESSOR 

ILEFT HALF OF A.,B 

ICOMMA TYPED BEFORE? 

lYES 

INO, SAVE LEFT HALF OF A. . 

ICHECK FOR in INSTRUCTION 



rODT 



Vi322 -EXEC MODE ODT 
?. JUM 69 



MACRO. V36 19:^6 t-JUN-69 PAdE 19 



85a 


("f!(l656 


202240 


002247' 


ACCFi: 


MOVE-^ T.wHO 


8'il 
852 


(»HP657 


2540;'0 


000661 • 




JR5T SPACE*1 


353 


m)!«660 


6030-'0 


000001 


space: 


TL'>IE E,QF 


854 


("Hf"661 


661000 


100000 




Tin 1". TIF 


8^5 


0H?662 


6210'«0 


000102 




TL? F,MF-4.PTF 


356 
8 = 7 


(?H0663 


2540:"0 


000035' 




JRST LiSl 


85 8 


PI0:'66'1 


607020 


000001 


RPRN ; 


TLNN FiQF 


859 


{'00665 


201240 


000000 




MOVE! T.0 


8(S0 


000666 


204240 


000005 




MOVS T,T 


861 


000667 


375000 


002251' 




SOSGE.PRMC 


862 


000670 


254000 


003151' 




JRST ERR 


863 


0610671 


262040 


002256' 




POP P.FRASEl 


864 


020672 


262040 


002252' 




POP p.FRaSE 


865 


000673 


262040 


002247' 




POP P.WRn 


866 


000674 


262040 


000000 




POP P,F 


867 


000675 


603000 


000100 




TLME F.PTF 


868 


000676 


603000 


000004 




TL'ME F.SF 


869 


000677 


2540K.0 


000703' 




JRST RPRVl 


872 


000700 


202240 


002253. 




MOVEM T.SVL 


871 


0H0701 


6610!'0 


000005 




TLO F,QF*SF 


872 


000702 


2540:'0 


00004 3 ' 




JRST LIRPH 


873 


002703 


273240 


002247' 


RPRM : 


ADOB T.WRD 


874 


000704 


661000 


000001 




TLO F.QF 


875 


00P705 


2540!<0 


000042 ' 




JHST LlRPR-1 



JSET LEFT HALF OF A, 



I ) 



EDDT 



V0 22 -EXEC MODE DDT 
2 JUN' 69 



MACHO. V36 19!06 <)-JtiN-69 PAGE 20 



876 
877 
878 
879 
8R0 
8B1 
8S2 
8B3 
884 
885 
8B6 
887 
888 
889 
890 
891 
892 
893 
89t 
895 
896 
997 
898 
899 
9(»B 
9?1 
9?i2 
9?i3 
9(^4 
9K5 
9f!6 
9B7 
9(18 
9(19 
910 
911 
912 
913 
914 
915 
916 
917 
918 
919 
9?0 
921 



00P7P6 260040 000766' 



[»007"'7 
000710 
000711 
000711 
000712 
000713 
000714 
000715 
0007] 6 
000717 
000720 
000721 
000722 
000723 
000724 
000725 
000726 
000727 
000730 



000731 
000732 
000733 
000734 

000735 
000736 



2 6 4 
350240 

552240 
552240 
260040 
201240 
6030.10 
201240 
260040 
6210?0 
260040 
2001?0 
260040 
2540^10 
6610;i0 
6030?0 
2540i'a 
2540','0 



260040 
260040 
370240 

254000 

260040 
254000 



^02421 1 
302271' 

302271' 
02272' 
01620' 
00057 
04000 
00041 
02440' 
00010 
02424' 
02272' 
1454' 
00151' 
00010 
04000 
0?!026' 
01532' 



sHEGIbTER EXAMINATION tORIC 

linee: pushj p.depra inext register 

IFE EOnTiSl,<°USHJ P.CRMRR 

JRST . + i;> 
LI0! PUSHJ P.CRE 

AOS T.LLOC 
LIl! ;PUSHJ P.LINCNK 

T.LLOC 
T.LLOCO 



LI2! 



REPEAT 
UI ^JCHK! 



VARRW: 



000766' 
002421' 
002271' 
000711' 

000766' GARR! 

000022 ' 



HRREM 
HRPZM 

PUShJ P.oAD 
MOVEI T,"/" 
TLNE F.STF 
MOVEI T,"!" 
PUSHJ P.TOUT 
TL? f.ROF 

pushj p. let 

MOVE RiLLOCO 
PUShJ P.rETCN 
JRST ERR 
TLO F.RDE 
TLNE F.STF 
JRST 0D2 
JRST CONSYM 

3,< 

GAML T.CDDTImT SAVPH ITRUNCATE ADDRESSES 

GAMLF T.CODTINT BNA0i'*2] 

HRRZS T 

MOVEM T.ULOC 

MOVEM T.LLOCO 

POPJ P. 



pushj p.depra 
pushj p.crf 
sos t.lloc^ 

JRST LIl 



;TRUMCATE AORS (UNLESS INSIDE DDT) 



iRETURN IS A POPJ 



PUShj P.DEPRA 

IFN FDDT«1.<JRST DD1> 

IFE i^DOTSl,< °USHJ P.TIN 

i-AIN T,i5 

JRST .-2 

JRST DD1,5> 



(CLOSE REGISTER 



EDDT 



V022 "EXEC MODE DDT 
2 JUM 69 



MACHO. V36 19:06 4-JUN-69 PAGE 21 



922 
9?3 


("00737 


664030 


002400 


OCON! 


TROA FiLFl+CFl 


9?4 


!!|0f'74ei 


h200?0 


000400 


OSYM; 


TR2 F.CFl 


925 


000741 


664000 


002000 




TROA F.LFl 


926 


00(1742 


665000 


004000 


SUPTYO! 


TUOA FiSTF 


927 


00074^ 


621000 


004000 


SLASH! 


TL? F.STF 


928 


00744 


607000 


000001 




TLNN FiUF 


979 


000745 


;'54|ZI00 


000751' 




JRST SLASl 


930 


000746 


200i;'0 


002271' 




^OVE R.LLOC 


931 


000747 


202100 


002273' 




MOVEM R.SAVlOC 


932 


000750 


552240 


002271' 




wRREM T.LLOC 


933 


000751 


552240 


002272' 


SLASl! 


HRRiM T.LLOCO 


934 


000752 


;>b4aifl0 


000720' 




JRST LI2 


935 












936 


000753 


607000 


000010 


ICON! 


TLNN FiROF 


937 


000754 


2540f0 


000151' 




JHST ERR 


938 


000755 


26 00 4 


001436' 




PUSHJ P.DEPRS 


939 


000756 


254B00 


000751' 




JRST SLASl 



I OPEN AS CONSTANT 
lOPEN SYMBOLICALLY 

ISUPPRESS TYPEOUT 

ITYPF OUT REGISTER 

)UAS ANY QUANTITY TYPED? 

)M0. DO NOT CHANGE MAIN SEQUENCE 

lYES. SAVE OLD SEQUENCE ANO 



IPUSWJ P.LINCHK 



SREGlSTER OPENED OR ERR 



(TRUNCATE AORS- SET UP Nrw SEQUENCE 



EDDT 



V0?2 -EXEC MODE DDT 
2 JUM 69 



MACRO. V36 19:126 4-JUN-69 PAGE 22 



910 


000757 


260040 


001436' 


TABI 


PUSHJ P.OEPRS 


911 


000760 


201215 


777777 




MOVEI T,-1(T) 


942 


000761 


250210 


002271' 




EXCh T.LLOC 


913 


000762 


202240 


002273' 




MOVE^^ T.SAVLOC 


941 


000763 


561210 


700000 




HRROI T, 700000 


945 


000761 


260040 


K02237' 




PUSHJ P.TEXTT 


946 
947 
918 


000755 


254000 


000707' 




JRST L10 


000766 


200100 


002273' 


DEPRA! 


MOVE R.SAVLOC 


949 


000767 


603000 


000040 




TLNE F,CF 


9';0 


000770 


250100 


002271' 




EXCH RiLLOC 


9B1 


000771 


?021'^0 


002273' 




wQ\lt» RtSAVLOC 


952 


000772 


603000 


000010 




TLNE F.ROF 


9'53 


000773 


607000 


000001 




TLMN F.QF 


g'SI 


000774 


254000 


001436' 




JHST DEPRS 


9S5 


000775 


200100 


002261' 




MOVE RiESTU 


956 


000776 


2023(^0 


002261' 




MOVE" Wl.ESTU 


957 


000777 


3251-10 


001436' 


0EPRA2I 


JUMPGE R, DEPRS 


958 


001000 


550272 


000001 




MRRZ M.l(R) 


9S9 


001001 


316200 


002272' 




CAMN W.LLOCO 


960 


001002 


?6!5040 


000521' 




PUSHJ P.REMUN 


961 


001003 


2701!?0 


003155' 




ADD R.CXWU 2,2] 


962 
963 


001001 


254000 


000777' 




JRST DEPRA2 


nmi 


imm 


mm 


imv- 


ll?*F^tK^*'='"' 


9bb 


001007 


660000 


002000 




TRO F.UFt 


967 


00101U 


260040 


001532' 




PUSHJ P.CONSYM 


968 
969 
970 


001011 


254000 


000154' 




JRST RET 


001012 


242210 


777742 


R50PNT! 


LSH T,-36 


971 


001013 


620210 


000003 




TR? T,3 


972 


001011 


260040 


002045 ' 




PUSHJ P,TOC 


973 


001015 


260010 


002426' 




PUSHJ P.TsPC 


974 


001016 


201300 


002254' 




MOVEI Wl.LWT 


975 
976 
977 


001017 


251000 


002103' 




JRST SPT 


001020 


211310 


000006 


SIXBP: 


MOVNI W2,6 


978 


001021 


200300 


002254 ' 




MOVE Wl.LWT 


979 


001022 


201240 


000000 


SIXBPlt 


MOVEI T.0 


900 


001023 


245240 


000006 




ROTO T.5 


9M1 


001024 


271240 


000040 




4D0I T,40 


982 


001025 


260040 


002110' 




PUSHJ P. TOUT 


9A3 


001026 


341340 


001022' 




AOJL W2,SIXBP1 


9fl1 


001027 


263040 


000000 




POPJ P. 



!OPE^' REGISTER OF n 

ISET UP MEW SEQUENCE AMQ 

(SAVE olo sequence 

I 3 RIISOUTS 



(RESTORE OLD SEQUENCE IF ICR.SCF, OR 

IIF St OR IBS WAS TYPED 

ISETUP "NEW" OLD SEQUENCE 

IIF REGISTER IS BEING CHANGED 

;REMGVE all previous UNDEFINED 

ISYMBOL REFERENCES TO IT 



(RADIX 50 SYMBOL PRINTER 



ISETUP FOR SPT 



ISIXBIT PRINTER 



EaoT 



VS)22 
7 JUV 
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9«5 
906 
937 
9f>8 
9fl9 
990 
991 
992 
993 
994 
995 
996 
997 
998 
999 
10Pie 
10fl 

ian2 

10(13 

iai"4 
las^s 

135-6 

iac9 

HUB 

1011 

1012 
1013 
1«)14 
1015 
1016 
1017 
1018 



;MDDE control SkilTCHFS 



i"01030 
("01B31 

C01033 
001034 
f01035 
?'0103 6 
l?0ia37 
("01040 
001041 
(501042 
!»01043 

C01044 
001045 
("01046 

001047 
("01050 
("01051 

101052 
("01053 
001054 
001055 
001056 
001057 
001060 
001061 
001062 

001063 
001064 



?011-»0 
?00240 
306240 
2 1 1 (' 
306240 

?0ii;"0 

?711,''0 
2711"0 
271100 
?71lC0 
552100 
254000 

6220?0 
2540i"0 
?0H<«0 
?nir'0 
552l?0 
2540^0 

200240 
305240 
2540.-'.0 
552240 
204140 
607000 
2540P'0 
251140 
2540{»0 

202240 
254020 



00^426 
002250' 
000^06 
7772r:7 

000005 

777201 

777461 

000371 

777472 

002045' 

000010 

001056 ' 

000001 

001052' 

777555 

002045' 

000011 

001056' 



TtXO! 



HWRDS! 
SFLOT! 
SYMBOLI 
con: 



RELA; 



ABSA! 



BASEi: 



002250' RASECH! 

000002 

000151 ' 

000012 

003147' 

010000 

000035' 

002354' 

000164' 

002254' SEMIC: 
000010 



MOVE! R.TEXTT-HLFW 

XOVE T.ktB02 

TAIN T , 6 

"DVEI R.SIXBP-MLf W 

TAIN T,5 

mOVEI Rf R50PMT-HLFW 

AOOI R.HuFW-TFlOT 

AUni R.TFLOT-PIN 

AQDI R.PIN-FTOC 

ADDl R.FTOC 

MRP2M R.SCH 

JR«T BASeI 

TRZE F,Q2F 
JRST BAbECH 
f^OVEI R.PATSO-TOC 
»Dni R.TPC 
HRRi!H R.AW 
JRST 8ASF1 



ilT ASSUME 7 BIT ASCI I 
;CHEnK FOR $6T 

iSET MODE Switch for sixpit 

ICHECK FOR i5T 

isFT MODE Switch for radix 50 

)H 
rF 

;s 

IC 



ICHA^|GE ADDRESS MODE TO RELATIE 



I A 



I$MR CHANGE OUTPUT RADIX TO N. N>1 



MOVE T,WRD2 

CAIGF T,2 

JKST ERR 

HRR£M T.ODF 

"OVS S.CXWO SCHM,SCH3 

TLMIv F.CCF 

JRST LISl 

RLT S,ODFM IWITH II, MAKE MODES PERMANENT 

JKST RET 



MOVEM T,LWT 
JRST eSCH 



ISEMICOlON Tvprs IN CURRENT MODE 



ITDOT 
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1019 








JGO 


AND EXECUTE LOGIC 


1ZIP0 












1»)?1 


PI01065 


505240 


254000 


GQ: 


WRLI T.tjHST) 


1H?2 








IFE 


r[)RT«l,< 


10?J 










TLON F.UF ■ 


la?* 










WRR T,J0HS4> 


10?5 












10?6 


?01066 


60705^0 


00;"0;n 


XEC! 


TL\N F.QF 


1E?7 


001067 


?540?0 


C00151' 




JHST ,EKR 


10?8 


?01070 


202240 


002356 ' 


XEC0 


! MQVEM T.TEM 


10?9 


001071 


260040 


002421' 




°1j?;hj p.ckf 


10^0 


001F72 


260040 


002474' 




°USHJ P.TTYLEV 


1031 


?01073 


260040 


001337' 




pushj p. INSHTB 


1032 


(!01074 


265240 


002401' 




JSP T, RESTORE 


1033 


B01075 


2t36E?a 


002356' 




XCT, TEl^ 


1?34 


001075 


254000 


000000 ' 


XECl 


; JRST DOT 


1^35 


001077 


264000 


002360' 




JSR.SAVE 


10^6 


P211f0 


260040 


001353' 




PUSriJ P.REMOVH 


103 7 


?i31101 


260040 


002421' 




cUSmJ p.chf 


1036 


0011P2 


2540;'0 


000022' 




JKST DDl 



(GET STARTING ADORESS 



;USED AT PRnc0 



EDOT 



1039 
IZ40 
1041 
1042 

laijs 

1044 
1045 
15)46 
1347 
1348 
1049 
1352 
1051 
1052 

la-ss 

1^54 

1056 

1B57 

1058 
1359 
1063 
13 61 
1362 
1063 
1364 
1365 
1366 
1367 
1368 
1369 
1370 
1371 
1372 
1373 
1374 
1075 
1376 
]«7 7 
1378 



V022 
2 JUM 
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P01117 
?311?3 
301121 

301122 
331123 
331124 

00112S 
f"31126 
P01127 

301130 
30U31 
301132 



300030 3330S"0 
266240 331133' 
3030R0 333033 



303330 
266240 



003330 
001133' 



30'3030 003330 

7000!'0 003303 

266240 301133' 

3a00,'.0 003000 

0000',i0 300000 

266240 001133' 

333030 000030 



IBREAK POIMT LOGIC 



HPl! 



001133 330030 003030 

301134 266240 001133' 

0011C5 303030 003330 

301136 003030 303370 

001137 266240 301133' 

331110 3000;>0 003330 

301111 303030 303330 

301112 266240 301133' 

301113 333330 003030 

301114 303030 0000010 

301115 266240 001133' 

331116 003330 303030 



REPEAT NBP.< 
JSA T, BCOM 
3 



JSA T, 



BCOM 



JSA T, BCOM 



JSA T, BCOM 
3 



JSA T, BCOM 



JSA T, BCOM 
3 



JSA T, BCOM 



JSA T, BCOM 



3 

JSA T, BCOM 



3 IJSR TO HERE FOR BREAKPOINT 

IHOLOS IMSTRUCTION WHILE BREAKPOINT IS IN PLACE 

IJSR TO HERE FOR BREAKPOINT 

;H0LPS INSTRUCTION WHILE BREAKPOINT IS IN PLACE 

;jSR TO HERE FOR BREAKPOINT 

IHOL'^S INSTRUCTION WHILE BREAKPOINT IS IN PLACE 

IJSR TO HERE FOR BREAKPOINT 

IHOL'^S INSTRUCTION WHILE BREAKPOINT IS I M PLACE 

IJSR TO HERE FOR BREAKPOINT 

IHOLHS INSTRUCTION WHILE BREAKPOINT IS Vi PLACE 

IJSR TO HERE FOR BREAKPOINT 

IHOL^S INSTRUCTION WHILE BREAKPOINT IS IN PLACE 

IJSR TO HERE FOR BREAKPOINT 

IHOLOS INSTRUCTION WHILE BREAKPOINT IS IN PLACE 

IJSR TO HERE FOR BREAKPOINT 

IHOLOS INSTRUCTION WHILE BREAKPOINT IS IN PLACE 

IJSR TO HERE FOR BREAKPOINT 

IHOLPS I\'STRUCTI0N WHILE BREAKPOINT IS IN PLACE 



001105' RlINS=BPl+2 
001130' BPN=.-3 



EODT 
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2 JUN' 69 



1079 
1086! 
1>)'!1 

li1«3 

10A4 

1005 
10B6 

iaft7 

10R8 
1089 

ia9B 

1091 

ia92 

1093 
1094 
1095 
1096 
1097 
1098 
1099 
i lf0 
11!"1 
11^2 
ll'ii 
ll?t 
11 '^•■5 
11^<6 
11:»7 



001133 
P101134 
001135 
!'ail36 
001137 
001140 
?01141 
001142 
("01143 
P!01144 

001145 
001146 
001147 
001150 

001151 
001152 
001153 
001154 
001155 
?»01156 
001157 
001160 
001161 
001162 
001163 

001164 



0000510 
262240 
201245 
542240 
201245 
542240 
200245 
6212^0 
502240 
250240 

3320!'0 
256020 
377000 
2540!'0 

202240 
135240 
301240 
303240 
606240 
2540'^0 
302240 
306240 
2 54 7 
200240 
254120 

!»000B0 



000000 
001303' 
001176 
001145' 

000001 

001147' 

776600 

010000 

001164' 
001133' 



BCOMi 



POP t.lEav 



MOVEI T.RlSKP-BlINStKT) 
HRRM T.Br:0M3 
MOVEI T,B1CNT-S1SKP(T) 
HRRM T,BC0M2 
MOVE T.BPI-BICNT(T) 
IFM EDDT^1,< TL? T. 010030 

HLLM T.LEAVl 
EXCH T.BCOM 



002302' BCDM3! 
001145' 

002303' BC0M2! 
001165' 

002337' 

003163' 

000264 

000266 

000700 

001237' 

000260 

000256 

001237' 

002337' 

001164' 

001303' UEAVl! 



SKIPE RISKP 

ycT 9,-1 

<50SG BICNT, 
JRST BREAK 

MOVEM T,AC0*T 

l.DB T.CPOINT 9,LEAV.f>] 



CAIL T.264 


IJSR 


CAlLE T,266 


;JSA,JSP 


TRNN Ti700 


lUUO 


,JRST PROCl 




CAIE T.260 


(PUSMJ 


CAIN T,256 


;xCT 


JRST pROr;i 




"DV£ T,AC0*T 




JRST 2.9LEAV1 




ywD t^.LEAV 





(MOVE IMSTRUCTION TO LEAV 
ICCNDITIONAL BREAK SETUP 
JRROCEDE COUNTER SETUP 

JTURM OFT USER MODE RIT> 

iSAVE Flags for restorino 

lAOOR "^on TO look at CONO. INST, 
lADDR MOD To LOOK AT PROCEED COUNTER 



IGET INSTRUCTION 

IMUST BE INTERPRETED 

(MUST BE INTFRPRETEO 
IRESTQRE FLAGS, GO TO LE*V 



EODT 
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11?!8 


?01165 


264000 


002360' 


break: 


JSR SAVE 




11''9 


C01165 


260040 


001353' 




pushj p.removb 




1110 


001157 


370240 


001145' 




<;us T, Renins 




nil 


t?01 1713 


5530510 


0000f5 




hhre? t 




1112 


(101171 


275240 


002276' 




SlJC!! T,BlAnR-3 




1113 


CI01172 


231240 


000003 




IDIVI T.3 




1114 


'/01173 


542240 


001215' 




HRPM T,BREAK2 




1115 


?01174 


200300 


003164 1 




MOVE WliCASCII 


/t0fl>/] 


1116 


(!01175 


337020 


001147" 




SKIPG PBC0M2 




1117 


("01176 


660300 


000174 




TRO Wl,">"-1 




1118 


(501177 


137240 


003165' 




npp T, [POINT 4, 


Wl,13] 


1119 


("012?I0 


260040 


002242' 




BUSHJ P.TEXt2 




1120 


Pi012!ll 


200240 


001133' 




MOVE T.BCOM 




1121 


l'0125!2 


502240 


002275' 




HLLM T, SAVPI 




1122 


0012'^3 


201245 


777777 




"OVEI T,-1(T) 




1123 


0012t»4 


260040 


001620' 




PUSHJ P.PAO 




1124 


[»012!»5 


550260 


001145' 




HRRZ T.9ecnM3 




1125 


CII012C6 


542240 


001231' 




MRRM T,PROC0 




1126 


0012!'7 


554260 


001145' 




HLRH T,»<5COM3 




1127 


C012ia 


322240 


001214' 




JUMPE T.PREaKI 




1128 


C012U 


260040 


002424' 




pushj P.LCT 




1129 


5101212 


554260 


001145' 




MLRZ T,«>RC0M3 




1130 


001213 


260040 


000711' 




PUSHJ P.Lll 




1131 


001214 


205140 


400000 


BHEAKl; 


fOVSI S. 400000 




1132 


001215 


241140 


000000 


BKEAK2: 


ROT ?, .-. 




1133 


001216 


260040 


002456' 




PUSHJ PiLlSTEN 




1134 


001217 


616140 


002331' 




TDNW SiAUTOPI 




1135 


001223 


254000 


000164' 




JRST RET 




1136 


001221 


254000 


001227' 




JRST PROCDl 




1137 














1138 


001222 


607000 


000001 


PROCEOE 


: TLNM F,OF 




1139 


001223 


201240 


000001 




"OVEI T,l 




1140 


001224 


202260 


001147' 




MOVEM T,fliBC0M2 




1141 


001225 


550100 


001145' 




HRR? R.HCOMJ 




1142 


001226 


260040 


001426' 




PUSHJ P.AUTOP 




1143 


P'01227 


260040 


002421' 


PHOCDl; 


PUSHJ P,Cfif 




1144 


1^01230 


260040 


002474' 




PUSHJ P.TTYLEV 




1145 


001231 


551100 


001076' 


PROC0! 


HHREI R.XECl 




1146 


001232 


260040 


001454' 




puShJ p. FETCH 




1147 


001233 


254000 


001310' 




JRST SPLUPl 




1148 


001234 


202240 


001333' 




MOVEM T.lEAV 




1149 


001235 


260040 


001337' 




PUSHJ P.Ii^SRTB 




1150 


001236 


2540^0 


001242' 




jRST PR0r2 




1151 














1152 


001237 


200240 


002337' 


PROCi: 


MOVE T,AC0tT 




1153 


001243 


26405!0 


002360' 




JSR SAVE 




1154 


001241 


255000 


000000 




JFCL 




1155 


001242 


201200 


000100 


PR0C2: 


"-OVEI W,100 




1156 


001243 


202230 


002357' 




MOVE" W.TEMl 




1157 


001244 


254000 


001253' 




JRST IXCT5 





)SAVE THE WORLD 
(REMOVE BREAKPOINTS 

((JET ADR OF CONDITIQMAL RREAK INST 
(CHANGE TO ADQRtSS OF $0B 
iQUOTIENT IS BREAK POINT NUMBER 
ISAVF BREAK POINT # 
IPRELIMINARY TYPEOUT MESSAGE 
ITEST PROCEED COUNTER 
ICHANGE T TO /I0(5>>/ 
(INSERT BREAK POINT « IN MESSAGE 



(SAVE PRnCESSOR FLAGS 
(TYPE PC AT qRFAK 
(SETUP ADDRESS OF BREAK 



(TEST FOR REGISTER TO EXAMINE 
(PRINT TAB 

(EXAMINE REGISTER C(SNB)LEFT 

(ROT BY « OF BREAK POINT 
(QONT PROCFED IF TTY KEY HIT 
(ODNT PROCEED IF NOT AUTOMATIC 
(OONT PROCEED 



(NIP 



(PROCEED AT A BRFAKPOINT 



(MODIFIED To ADDR OF BREAKPOINT 
(ONLY GET HERE IF MEMORY SHRANK 



(SETUP MAX LOOP COUNT 



EDOT 
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U5B 








IXCT4! 


iff: eodtsi,< subi t,0 


1159 










JUMPE T.PPLUP 


ii^a 










AUJGF T,IXCT6> 


1161 












1162 


101245 


2 021^0 


000040 




'^CVE'" R»40 


1163 


!;01246 


2011.10 


000041 




fOVtl P. 41 


1161 


001247 


371000 


002357' 


IXCT! 


SOSl TFMl 


1165 


001250 


260040 


001454' 




BUShJ P, FETCH 


1166 


001251 


254000 


001307' 




JRST BPLUP 


1167 


001252 


202240 


001303' 




MOVE" T,LtAV 


1168 


001253 






IXCT5: 


IFN EDDTil.< 


1169 


001253 


135240 


003163' 




LDB T.CPOINT 9,LFAV,8] 


1170 


001254 


306240 


000254 




TAIH. T.254 


1171 


001255 


254000 


0013C2I 




JRST IXCT6> 


1172 


001256 


515740 


002332' 




HRL2I 17,AC0 


1173 


001257 


251740 


000017 




PLT 17,17 


1174 


001260 


201260 


001303' 




MDVEI T.iSLEAV 


1175 


001261 


137240 


003166' 




nPB T, [POINT 23,LEAV,35] 


1176 


001262 


135300 


003167' 




LDB WI.CPOINT 4,tEAVil2J 


1177 


001263 


135240 


003163' 




LDB T, [POINT 9,LEAV,P] 


J178 


001264 


201040 


003220' 




MOVei P,PS 


1179 


001265 


306240 


000260 




CAIN T.260 


11R0 


001266 


254000 


001313' 




JRST IPUSHJ 


1131 












1182 


001267 


306240 


000264 




CAIN T,264 


1183 


001270 


254000 


001323' 




JRST IJSR 


1184 


001271 


306240 


000265 




CAIN T,26 5 


1185 


001272 


?540!a0 


001333' 




JRST IJSP 


1186 


001273 


306240 


000266 




CAIN T,266 


1187 


001274 


254000 


001317' 




JRST USA 


1188 


001275 


200100 


001303 ' 




■^OVE R.LFAV 


1189 


001276 


606240 


000700 




THN!N T,700 


1190 


001277 


254000 


001245' 




JRST IXCT4 


1191 


001300 


306240 


000256 




CAIN T.256 


1192 


001301 


2540(10 


001247' 




JRST IXCT 


1103 












1194 


001302 


265240 


002401' 


IXCT6! 


JSP T, RESTORE 


1195 


001303 


000000 


000000 


LEAV! 





1196 


001304 


254020 


001133' 




JRST 9BCnM 


1197 


001305 


350000 


001133' 




AOS nCOM 


1198 


001306 


254020 


001133' 




JRST l?PCOM 


1199 












12!'0 


001307 


260040 


001353' 


BPLUP: 


PUShj P.REMQVB 


12!"1 


001310 


264030 


002360' 


BPLUPl: 


JSR SAVE 


12!^2 


001311 


255000 


0030(10 




JFCL 


12?3 


001312 


2540"i0 


000151' 




JRST ERR 



iDONT PROCEOF FOR INIT 
lOONT INTERPRET FOR SYSTEM UUOS 
i INTERPRET For NON-SYSTEM UUOS 



JBREAKPOINT LOOPING OR FETCH FAILED 



IGET INSTRUCTION 

(DON'T DO ANYTHING TO JRST IN EXEC MODE 



;STORE EFFECTIVE ADDRESS 

IPICK UP AC FIELD 

iPICK UP INSTRUCTION FIELD 



I INTERPRET PUSHJ 

MNTERPRFT JSR 
IIMTERPRET JSP 
;INTERPRFT JSA 

II^'TERPRET UUO 
SINTERPRET XCT 

I INSTRUCTION MODIFIED 
IBREAKPQINT PROCEED ERROR 



EQOT 
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12'^4 

12?9 
121B 
1211 
1212 
121,5 
1214 
1215 
1216 
1217 
1218 
1219 
1220 
1221 
1222 



001313 1373Pe 

001314 4020H0 
5101315 200240 
(?01316 2540110 



P'01323 
C01324 
001325 
C01326 
f"01327 
001330 
f 01 331 
001332 



003170' IPUSHJi DPB Wl, [POINT 4,CPUSwP,l?] 
002256' CLEAfMiTrM3 

001303' MOVE T.LFAV 

002402' JRST RESTRl 



(STORE AC FIELD INTO A PUSH 



001317 200240 00113.3' 

001320 504240 001303' 

001321 250246 002332' 

001322 2540«0 001325' 



200240 
500240 
200100 
260040 
254000 
354240 
200240 
2540P0 



001133' 
002275' 
001303' 
001446' 
0013H7' 
001303' 
001373' 
0024(11' 



USA! 



IJSR! 



IJSR2! 



IJSRj: 



MOVE T.BCOM 
MRL T.LEAV 
FXCH T,AC0tWl) 
JRST IJSR2 

MOVE T.BCOM 
HLL T.SAVPI 
MOVE R.LFAV 
pushj P.DEP 
JRST BPlUP 
ADSA T.LEAV 
MOVE TiLEAV 
JRST RESTORE 



(INTERPRET JSA 



1 INTERPRET JSR 



(ERROR, CAM'T STORE 



1223 
1224 
1225 
1226 
1227 
1238 
1229 
1230 
1231 
1232 
1233 
1 2 '^ 4 
1235 
1236 
1237 
1238 
12 3 9 
1240 
1241 
1242 
1243 
12 44 
12 45 
1 246 
1247 
1248 
1249 
1250 
1251 
1252 
1253 
1254 
1255 



001333 
001334 
001335 
001336 



001337 
001340 
001341 
001342 
^01343 
001344 
001345 
001346 
001347 
001350 
001351 
001352 



001353 
00] 354 
001355 
001356 
001357 
00] 360 
001361 
001362 
001363 



2002?0 
500240 
202206 
254e!'0 



200140 
332ir'3 
260040 
2540?0 
202243 
200240 
260040 
255000 
771140 
31714U 

254eF0 

263040 



201140 
200243 
332ir3 
260040 
2550^0 
275140 
301140 
2540?0 
254000 



001133' IJSPj 
002275' 
002332' 
001331' 



"OVE W.BCOM 
HLL T.SAVPI 
MOVEM W,AC0(Wl) 
JRST IJSR3 



(INTERPRET JSP 



) INSERT RReaKPOIimTS 
003171' INSRTBl MOVE S.CjSR nPlJ 



001176 

001454' 

001347 ' 

000002 

000003 

001446 ' 

000000 

0000?i3 

003172' 

001340' 

000000 



002326' 

776604 

000000 

001446' 

000200 

000003 

002301 ' 

001354' 

002463' 



insrtl; skipe r.b1adr-8p1(s) 
pushj p. fetch 
jhst insrt3 
movem t,r1ins-rp1(s) 

MOVE T.S 
PUSHJ P.OEP 
JFCL 
INSRT3! ADDI Si3 

CAMG S.CjSR PP'J] 
JRST INSRTl 
POPj P. 

(REMOVE fREAKPOlMTS 



(HERE ONLY IF CAN'T WRITE IN HIGH SEC 



REMOVti[ MQVEI S.PNAQR 
RtMOVl! MOVt T.BlINS-BlAHRCS) 

SKIPE R. (S) 

PUShJ P.nEP 
JFCL 

SUBI S,3 

CAIL S.BIAOR 

JRST REMOVl 

IFi^l EDOTsl,<jRST TTY'ET) 

IFF FDDT«1.<P0PJ P,> 
(IM EXEC MODE. SAVE UP TTY STATUS 



(HERE ONLY IF NQ WRITE IN HIGH SFG 



1 IN USER MOOE, DONE BY SAVE 



EDDT 



V0J2 -EXEC MODE DOT 
2 JUN 69 



MACRO. V36 19:06 4- JUN- 69 PAGE 3? 



1256 








iALL iB COMMANDS GET HE 


12'57 












1258 












1259 


001364 


6230.30 


000001 


BPSI 


TL^E F.QF 


1260 


K01365 


2540»I0 


001374' 




JRST BPSl 


1261 


(^01366 


6220^0 


000001 




TRZE F,02F 


1262 


P01367 


254000 


001400' 




JRST BPS2 


126i 


001370 


200240 


003173' 




MOVE T.CXWD BlA 


1264 


1^01371 


4020710 


0023t»l' 




CLEARM BIADR 


126S 


(^01372 


251240 


002331' 




RLT T.AUTQPI 


1266 


001373 


2540^10 


000154' 




JRST RET 


1267 












1268 


0)01374 


6260?0 


000001 


BPSl: 


TRlN F,Q2F 


1269 


C01375 


254000 


001412' 




JRST BPS3 . 


1270 


C01376 


200100 


000005 




MOVE R.T 


1271 


■^01377 


660000 


000002 




TRO F,2 


1272 


("01400 


200240 


002250' 


BPS2; 


MOVE T,WR02 


1273 


0014?1 


301240 


0000(711 




CAIL T.l 


1274 


I'|014S!2 


303240 


000010 




CAILE T.NBP 


1275 


P1014C3 


2540?i0 


000151' 




JRST ERR 


1276 


001404 


221240 


000003 




IMIJLI T,3 


1277 


C014C5 


271240 


002276' 




ADDI T,BlA[)R-3 


1278 


("014f6 


626000 


000002 




TRHN F,2 


1279 


001407 


254000 


001675' 




JRST MASK2 


1230 


001410 


250100 


000005 




EXCH R.T 


1281 


1^01411 


254000 


001423' 




JRST BPS5 


12P2 












1293 


001412 


2011«<0 


002301' 


RPS3! 


MOVEl R.BIAOP 


12B4 


001413 


55025'2 


000000 


BPS4! 


HRRZ W, (R) 


12«5 


001414 


302205 


000000 




CAIE W, (T) . 


1286 


001415 


336002 


000000 




SKIPM (R) 


1287 


001410 


254000 


001423' 




JRST BPS5 


1288 


001417 


271100 


000003 




ADDI R,3 


1289 


P01420 


307lf0 


002326' 




CAIG R.BNADR 


1290 


001421 


254000 


001413' 




JRST ePS4 


1291 


001422 


?540?0 


000151' 




JRST ERR 


1292 


001423 


202242 


000000 


BPS5! 


MOVEM T,(R) 


1293 


001424 


402002 


000001 




CLEAPM.KR) 


1294 


001425 


4020?2 


000002 




CLEARM. 2(R) 


1205 












1296 


C01426 


275100 


002301' 


AUTOP! 


RUBI R, BIADR 


1297 


001427 


231100 


000003 




IDIVI R.3 


1298 


«"01430 


201140 


000001 




MOVEI S.l 


1299 


B01431- 


242142 


000000 




LSH S, (R) 


1300 


001432 


412140 


002331' 




ANDCAM S.AUTOPl 


1301 


001433 


603000 


010000 




TLNE F.CCF 


13:^2 


001434 


436140 


002331' 




lORM S.AUTOPI 


13>M3 


001435 


263040 


000000 




POPJ P. 



<A>'E<N>R 



IHAS <A> BEE"^! TYPED? 

IVES 

INC, HAS <N> BEEN TYPED? 

lYES 



►Ij )N0, COMMANU IS tB - CLEAR ALU BREAKPOINTS 
(CLEAR OUT ALL BREAKPOINTS AND AUTO PROCFDE REGESTER 



IHAS <N> BEEN TYPED? 

)ND 

(YES. PROCESS THE COMMAND AJNB 



(PROCESS THE COMMAND AfB 



(AUTO PROCEOE SETUP SUBROUTImE 



EOOT V0?2 -EXEr MODE DHT fkcno,V3f> t9:06 4-JUN-69 PACE 31 
2 JUV 69 

;fetch Af:o arposiT ivtp memory 



13?4 








li'^ 








13 '6 








13?i7 


fl01436 


202240 


002254' 


1378 


C01437 


2001^0 


002272' 


13?9 


["014413 


6230/0 


000010 


1310 


001441 


6070(;0 


000001 


1311 


K01442 


263040 


000000 


1312 








1313 








1314 


P01443 


260040 


001446' 


1315 


l?01444 


25401710 


000151' 


1316 


001445 


263040 


000000 


1317 








1318 








1319 








1320 








1321 








1322 








13'33 








1374 


!?ai446 


A061f!0 


777760 


1325 


P01447 


2540l»0 


001452' 


1326 








1327 


?014'j0 


202242 


000000 


1328 


e0i4'ii 


2540?B 


000431' 


1329 








1330 


t!014!>2 


202242 


002332' 


1331 


(^014S3 


2540?0 


000431' 


1332 








1333 








133 4 








1335 








1336 








1337 








1338 








1339 








1340 








1341 








1342 








1343 








1344 








1345 









nEPWSi «OVE" T,tWT 

'■'CVL H.LLOCO 

TU^E F.ROF 

TLNN F.QF 

POPj P>2 

;CAIL R.DOT 
iCAlLE R,.DOT'^Nn-l 



(DEPOSIT REGISTER AND S^AVE AS LWT 
IQUAN TYPEO IN REGIS EXAM 



PUShJ p.OEP 
JRST ERR 
BQPj P. 

;OEPOSIT INTO MEMORY SUBROUTINF 

IFE EDDT'!10,< 

DEP: IFF EDr5T«l,< 

JSP TTl.CHKADR 

JHST DEP4 
TRN\ R,77776?l 
JKST DEPAC 

IFE FOnT«10.< MOVEX T.(R) > 
JRST CPOPJl 



iSTQPE AWAV 

ICAN'T STORE (IM DDT OR OUT OF BOUNDS) 

IRFTDRN 



ILEGAL ADDRESS? 

lYES SUT IN HI SEGME'JT> 

;DEP0SIT in AC 



DEPAC; 



"OVE"^ T.ACac?) 
JRST CPOPJl 



IFE EDDT'il,< 
nEP4! MOVEI W,C 

rALLI W.SETUWP 

PQPJ P. 

MOVE** T, (R) 

TRNt Wil 

CALLI W.SETUWP 

JFCL 

JRST CPOPJl 
> 

> jend not-filddt cono. 
IFM eodt'.i0,<oep=cpopji> 



jskip Return 

(deposit in ac 
;skip return 



IIS HI SEGMENT PROTECTED? TURN OFF 
(PROTECTED. '0 SKIP RETURN 
(STORE WORD IN MI SEGMENT 
(WAS WRITE PROTECT DN? 
(YES. TURN IT BACK ON 

(SKIP RETURN 



(ALWAYS OK NO-OP IF FILE DOT 



EOOT 



1316 
1347 
134fl 
1349 
1350 
1351 
13?2 
1353 
13'54 
13'55 
13'56 
13'57 
1358 
13'59 
1360 
1361 
1362 
1363 
1364 
1365 
1366 
1367 
1368 
1369 
1370 
1371 
137Z 
1373 
1374 
1375 
1376 
1377 
1376 
1379 
13«0 
13<31 
13B2 
131^3 
1384 
1385 
1386 
1387 
1386 
1389 
13913 
1391 
1392 
1393 
1394 
1395 
1396 



V022 -EXEC MODE DDT 
2 JU^J 69 



MACHO. V36 19106 4-JIIN-69 PACE 32 



JFETCH FROM MEMORY SUBROUTINF 



H01454 6061?0 777760 

001455 334242 002332' 

001456 200242 000000 
?I01457 2540P0 000431' 



FETCH! IFE EUDTA10,<IFE ETDTSl, 
<JSP TTl.CHKAQR 
.JFCL> 

TRNN R, 777760 
SKIPA T,AC0(R> 
"•OVE Tj (R) 
JRST CPOPJl 



IFM EUDT«10,< : SKIP.M CRASHS 




JRST MDNPEK 




MOVE" R,TEM4 




MRRZ R,R 




ADD R, OFFSET 




tUIVI P,4000 




CAIL R.3S1 




OQPJ Pi 




THNN S.77700(? 




JUMPE o.RSQNT 




CAMM R.RSAVE 




JRST INCnRE 




MOVEM R.RSAVE 




IMUUI "'20 




USETI 1,1(R) 




INPUT l.CURLST 




STAT? 1,743030 




WALT ,-2 


INCOREl 


SKIPA T.CUREWTCS) 


RSDNT! 


><OVE T,Rr;lDNT(Sl 




MOVE R>TEM4 




JRST CPOPJl 


TEM4! 


K' 


MONPEK ! 


MRR2 T,R 




CALLI T,33 




JRST CPOPJl 



ILEGAL AHDRESS? 

IriIGH OR LOW OK FOR FETCH 

(ACCUMULATOR? 

lYES 

iSKIP RETURW ONLY FOR LEGAL ADnRFSS> 

;CRASH.SAV EXIST? 
iNO - GO PEEK AT RUNNING MONITOR 
JSAVE THE AQBJN POINTER 
ISTRIP OFF POSSIBLE COUNT 

IR HAD LOCATION 

lR=Nn, OF INPTS R+1=L0CAT10N 

(LARGER THAN 4SK 

iS=R*l 

!L0C is IN RFSIOENT BLOCK 

) IS LOG INCQRE ? 

)S=LOC 

1 INPT NO. 

116/INPT 

IBLK DOES NOT EXIST 

(GET 16 PLKS 

I YEP 



(RESTORE AOBJN POINTER 



IFE Ea0TSl,< 

CHKADHi HRRi! TT.JOBREL 
CAIL TT, (R) 
JRST KTTl) 
HRR2 TT.JOBHRL 
TRNE R, 400003 
CAIGE TT,(R) 
POPJ Pi 
JRST 0(TT1) 

> (END OF IFE EDDT«1 

000432' IFN EDDTS1,<CHKADR==CP0PJ> 



(HOLD AOPJN POINTER 
(REMOVE COUNT 
(DO PEEK UUO 
(RETURN VALUE. IN AC T 



(DO ADDRESS CHECKS ONLY IN U?ER MODE 



(GET HIGHEST ADDRESS IN LOW SEGMENT 

(CHECK FOR WITHIN LOW SEGMENT 

(ADDRESS IS OK [ nj low SEGMENT, SKIP RETjqN 

(GET HIGHEST ADDRESS IN HIGH SEGMENT 

(IS THE ADDRESS IN HIGH SEGMENT? 

(I? THE ADR TOO SIG FOR HIGH SEGMENT? 

(NO, YES- ILL. ADR. 



INO ADDRESS CHECKS IN EXEC MODE 



EODT 



V022 -EXEC MODE DDT 
2 JUN 59 



MACRO. V36 19:06 4-JUN-69 PACE 33 



1397 


001460 


202240 


002267' FlRARGi 


; MOVEH T.nEFV 


1398 


H01461 


661000 


001000 


TLO F,FAF 


1399 


001462 


254000 


001465' 


JRST ULII^l 


i4Pei 


001463 


661000 


002000 ulim: 


TLO F.SAF 


1401 


001464 


552240 


002270' 


HRRZM T.ULIMIT 


14C2 


001465 


607000 


000001 ULIMli 


TLNN F.QF 


1433 


001466 


254000 


000151" 


JRST ERR 


14a4 


B01467 


254000 


000033' 


JRST LIS0 


14^5 










1406 










14(^7 


001470 


331100 


002260' LOOK: 


SKIPL R.PRGM 


14^8 


001471 


200120 


002274' 


MOVE R.SSYMP 


14719 


001472 


574160 


002274' 


HLRE S.»SYMP 


1410 


001473 


240140 


777777 


ASH S.-l 


1411 


001474 


621000 


400000 


TL2 F, 400000 


1412 


001475 


515340 


600000 


HRLZI W2,DEL0*0 


1413 


001476 


202240 


002356' 


MOVEM T.TEM 


1414 










1415 


001477 


612342 


000000 LOOKi: 


TONE W2, (R) 


1416 


001500 


254000 


001522- 


JRST L00K3 


1417 


001501 


200242 


000000 


MOVE T,<R) 


1418 


001502 


607240 


740000 


TLNN TiPNAME 


1419 


001503 


665340 


100000 


TLOA W2. LOCAL 


1420 


001604 


334240 


002356' 


SKIPA T.TEM 


1471 


001605 


254000 


001522' 


JRST L00K3 


1422 


001506 


2002'12 


000001 


MOVE W,1(R) 


1423 


001507 


430230 


000005 


XOR W,T 


1424 


001510 


3212?0 


001522' 


JUMPL W.L00K3 


1425 


001511 


274242 


000001 


"^UB T.KR) 


1426 


001512 


321240 


001522' 


JUMPL T.L00K3 


14P7 


001513 


325000 


001517' 


JUMPGE F,L00K2 


1428 


001514 


200222 


000001 


MOVE W.KRl 


1429 


001515 


274236 


000001 


SUB W.KWl) 


1430 


001516 


323220 


001522' 


JUMPLE W,L00k3 


1431 


001517 


540330 


000002 L00K2! 


HRR W1,R 


1432 


001520 


6610^0 


400000 


TLO F, 400000 


1433 


001521 


322240 


002102' 


JUMPF T,SPT0 


1434 


001522 


270120 


003155' L00K3: 


ADD R.CXWD 2,2] 


1435 


001523 


3310J0 


000002 


SKIPL R 


1436 


001524 


200120 


002274' 


MOVE R. »SYMP 


1437 


001525 


343140 


001477' 


AOJLF S.lOOKI 


1438 


001526 


200240 


002356' 


MOVE T.TEM 


1439 


001527 


603020 


400000 


TLNE F. 400000 


1440 


001530 


274246 


000001 


SUB T.KWl) 


1441 


001531 


254020 


000431' 


JRST CPOPJl 



ILOOK UP SYMBOL 



ISETUP COUNT FOR LENGTH OF SYM TABLE 



(NAME 



IPOINTER BEST VALUE SO FAR 



(TERMINATING CONDITION 



FOOT 



V0?2 -EXEC MODE OHT 
2 JUN 69 



MACRO. V36 19!06 4-JUN-6a PAGE 34 



1442 


001532 


202240 


002254' COMSYM; MOVEM T,lWT 


1443 


5101533 


606000 


002000 


TRNN F.LFl 


1444 


(501534 


254020 


000010 


JRST SSCH 


1445 


001535 


602000 


000400 


TRNE F.CFl 


1446 


001536 


254030 


002045' 


JRST FTOC 


1447 










1448 


001537 




PIN 


; 


1449 


001537 


641240 


700000 


TLC T. 700000 


]4'?0 


001540 


647240 


700000 


TLHN T./00000 


14'31 


001541 


254000 


001647' 


JRST nouT 


14'i2 


001542 


404240 


003174' 


AND T.CXWD 777000,0] 


1453 


001543 


322240 


001611' 


JUMPE T.HLFW 


1454 


001544 


260040 


003032' 


pushj p.optype 


1455 


001545 


205240 


777000 


MOVSI T, 777000 


1456 


001546 


404240 


002254' 


AND T.LWT 


1457 


001547 


6060(50 


000002 


TRNN F. ITF 


1458 


001550 


260040 


001470' 


PUSHJ P.LOOK 


1459 


001651 


564000 


000200 


TROA F.NAF 


1460 


001552 


254000 


001611' 


JRST HLFW 


1461 


001553 


260040 


002425' 


PUSHJ P.TSPC 


1462 


001654 


135240 


003175' 


LDB T.CXwD 270400, LWT] 


1463 


001555 


322200 


001561' 


JUMPE T,PI4 


1464 


001556 


260040 


001620' 


PUSHJ P. PAD 


146 5 


001557 


201300 


000054 PI3A! MQVEI Wl,"," 


1466 


001560 


260040 


002240' 


PUSHJ P.TEXT 


146 7 


001561 


2003'''0 


002254' PI4 


: >50VE Wl.LWT 


1468 


001562 


201240 


000100 


MOVLI -[.'•»" 


1469 


001563 


603300 


000020 


TLNE W1.2B 


1470 


001564 


260040 


002440' 


PUShJ P. TOUT 


1471 


001565 


550240 


002254' 


HKR2 T.LWT 


1472 


001566 


135200 


003176' 


LDR W.CXWD 331100, LWT: 


1473 


001567 


3012C0 


000240 


CAIL W.240 


1474 


001570 


303200 


000247 


TAILF W,247 


1475 


001571 


254000 


001607' 


JRST PI8 


1476 


001572 


6073':?'0 


000020 


TLMN W1.20 


1477 


001573 


3062?0 


000243 


r-AIN W.<JFF0>'--33 


1478 


001574 


254000 


001607' 


JRST PI8 


1479 


001575 


260040 


001541' 


PUSHJ P.PADS3A lONUY A 


14R0 


001576 


6200.-^0 


000200 PI7 


1 THZ F.NAF 


14R1 


001577 


135100 


003177' 


LOB R.CXWD 220400, LWT3 


14H2 


001600 


322100 


001524' 


JUMPE R.PAOSl 


1483 


001601 


201240 


000050 


MOVE I T,"(" 


1484 


001602 


260040 


002440' 


PUSHJ P. TOUT 


14n5 


001603 


200240 


000002 


MOVE T.R 


1486 


001604 


250040 


001520' 


PUSHJ P. PAD 


1487 


0016r'5 


201240 


000051 


MOVEl T,")" 


1488 


001606 


254000 


0024401 


JRST TOUT 


1489 










1490 


001607 


260040 


001620' PI8 


! PUSHJ P.PAD 


1491 


001610 


254000 


001576' 


JRST PI7 



IPIN OR FTOC 



JPPIMT IMSTRUCTION 



H'^-OUT INSTRUCTION OR NEC NUM 
lEXTRACT OPCODE BITS 
JTYPE AS HALF WORDS 



IHAS INSTRUCTION BEEN TYPED? 
)N0, LOOK IN SYMBOL TABLE 
IINSTRUCTION TYPED, ALLOW NEC ADDRESSES 
INOT FOUNDi OUTPUT AS HALFWORDS 

IGET AC FIELD 



;CHECK FOR INDIRECT BIT 

I INSTRUCTION BITS 

lALL (EXCEPT ASH.ROT.LSH) HAVE SYMBOLIC lO'iS 



IJFFO AND » GET SYMBOLIC ADDRESSES 
iSOLUTE ADDRESSING FOR LSH, ASH, AND ROT 

IINDEX REGISTER CHECK 
(EXIT 



JEXIT 



EDDT 



V022 -EXEC MODE DDT 
? JUNi 69 



MACRO. V36 19i06 4-JUN-69 PACE 35 



1492 
1493 
1494 
1405 
1406 
1497 
1498 
1499 

1501 
15J12 
15(J3 

15K4 
155^5 
15B6 
15!»7 
1508 
15(19 
1510 



faieii 

l!"01612 
0B1613 
1301614 
PII31615 
001616 
("01517 



001620 
001621 
001622 
001623 



554240 
322240 
660000 
260040 
205300 
260040 
550240 



405240 
254020 
322240 
260040 



HLF»i! REPEAT 0,< MOVE T.LWT 
CAML T.CDDTINT SAVPM 
CAMLE T.CDDTINT f3NAOR + 2] 
SKIPA 
JRST PAO> 

002254' HLP£ T.LWT 

001617' JUMPE T.HLEWI 

000200 TRO F.NAF 

001620' PUShJ P.PAD 

261300 MOVSI Wl, (ASCII /,./) 

002242' PUShJ P.TEXT2 



IPRI'^T AS HALF WORDS 

(TYPE ONLV RIGHT ADH IF LEFT ADR=0 

lALLOW NEGATIVE ADDRESSES 



302254' HLFWl! HRR2 T,LWT 



(TYPE 



iPRINT ADDRESSES (ARG USUALL" 18 BITS BUT CAN BE 36 5ITS: 



777777 PAD! ANOl T.-l 
000011 JRST »AR 

002213' PADSO: JU^PE T,FP7B 
001470' PUSHJ P. LOOK 



IPADSO OR PAOl 
IPRINT A ZERO 



1511 
1512 
1513 
1514 
1515 
1516 
1517 
1518 
1519 
1520 
1521 
1522 
1523 
1524 
1525 
1526 
1527 
1528 
1529 
1530 



001624 
001625 
001626 
001627 
001630 
001631 
001632 
001633 
001634 
001635 
001636 
001637 

001640 
001641 
001642 
001643 
001644 
001645 
001646 



263040 
200346 
305240 
305340 
2540?!0 
202240 
325000 
260040 
201240 
260040 
550240 
2540i?0 

200240 
602000 
305240 
254000 
212240 
201240 
2540(10 



000000 PADSi: 

000001 

000100 

000060 

001640' 

002356' 

001637' 

002102' 

000053 

002440' PADSIA! 

002356' 

002045* 



PADli 



002356' 

000200 

776000 

002045' 

002356' 

000055 

001635' 



POPj P.0 
MOVE H2.1(W1) 
CAIGE T,100 
CAIGE W2,60 
JRST PADS3 
hOVE« T.TEM 
JUMPGE F.PAOl 
PUSHJ P,SPT0 
MOVEI T,"+" 
PUSHJ P.TOUT 
HHRZ T.TEM 
JRST TOC 



PADS3I MOVE T.TEM 
PADS3A! TRNE F.N4F 

CAIGE T. 776000 

JRST TOC 
PAnS3tJ! MOVKM T,T£M 

MOVEI T,"-" 

JRST PADSIA 



lEXIT 



EDDT 



V0?2 -EXEC MODE DDT 
? JUN 59 



MACRO. V36 i9:e6 4-JUN-69 PACE 36 



1531 


001647 


650240 


003200 


INOUT! 


TDC T.CXWD -1,4000001 


1S32 


!"01650 


655240 


003200 




TOCM T.CXWD -1 


40000?] 


1533 


001551 


2540H0 


001544 




JRST PA0S3B 




1534 


(?01652 


135100 


003201 




LDf> R. [POINT 7 


T.9: 


1535 


001553 


301100 


000160 




CAIL H.700 — 2 




1536 


001654 


2540P0 


001611 




jRST HI.FW 




1537 


001555 


135100 


003202 




LOB R.CPOINT 3 


T,12] 


1538 


001555 


137100 


003203 




nPB R, [POINT 5 


T,8J 


1539 


00155 7 


260040 


003032 




PUSHJ P.OPTYPE 




1540 


001660 


260040 


002426 




PUSH J P.TSPC 




1541 


001661 


205240 


077400 




^^OVSI T. 077400 




1542 


001562 


404240 


002254 




AND T.LWT 




1543 


001663 


322240 


001551 




JUMPE T.PI4 




1544 


001564 


260040 


001470 




PUSHJ P. LOOK 




1545 


001665 


254000 


001557 




JRST PI3A 




1546 


001666 


200240 


002356 




l^OVE T.TEM 




1547 


001667 


242240 


777750 




LSH T,-30 




1548 


001570 


250040 


002045 




PUSHJ P.TOC 




1549 


001671 


254000 


001557 




JHST PI3A 




1550 


001672 


6030110 


000001 


mask; 


TLNE F.ar 




1551 


001673 


254000 


001700 




JRST MiSKl 




1552 


001674 


201240 


002300 




MOVEI T.MSK 




1553 


001575 


201200 


000001 


MASK2! 


MOVtl W,l 




1554 


001676 


202200 


002256 




■'OVL« W.FRASEl 




1555 


001677 


254000 


000374 




JRST QUANIN 




1556 


001700 


202240 


002300 


MASKl •• 


"OVEM T.MSK 




1557 


001701 


254000 


000164 




JHST RET 





I lO INSTRUCTION OR i\iEG NUM 

ITYPE AS NEC NUM 

IPICK OUT 10 DEVICE BITS 

I IF DEVICE ,L. 700, THEN TYPE 

iTYPE AS HALF WORDS 

IMOVE 10 BITS OVER FOR OP HECODER 



ILOOK FOR DEVICE NUMBER 



EDDT 



V022 -EXEC MODE DDT 
?. JUN 69 



MACRO. V36 19i0fi 1-JUN-69 "ACE 37 



1558 


0017C2 


651000 


000020 


EFFEC! 


1559 


«017f'3 


650240 


000005 




1560 


001704 


201100 


774000 


WORD; 


1561 


?01705 


271100 


326240 


NWORQ! 


1562 


fi017C6 


506100 


001730' 




1553 


5I017C7 


627000 


000001 




1564 


001710 


254000 


000151' 




1565 


001711 


452248 


002247' 




1566 


001712 


20524K 


777772 




1567 


001713 


462005 


002252' 




1568 


001714 


253240 


001713' 




1569 


001715 


200240 


002270' 




157e 


001716 


603000 


002000 




1571 


001717 


6610^0 


000001 




1572 


001720 


26004E 


002000' 




1573 


001721 


260042 


002421' 




1574 


001722 


26004k; 


001454' 


SEARH 


1575 


001723 


254iaBe 


001736' 




1576 


001724 


6030WE 


000020 




1577 


001725 


?540?i0 


001756' 




1578 


001726 


444240 


002247' 




1579 


001727 


404240 


002300' 




1580 


001730 


322240 


001744' 


SEAR2: 


1581 


001731 


350100 


002267' 


SEAR2A 


15«2 


001732 


26004E 


002456' 




15B3 


001733 


31310E 


002270' 




15S4 


001734 


254000 


001742' 




1585 


001735 


254000 


001722' 




1566 










15R7 


001736 


2011?-e 


377777 


SEAR2B 


1586 


001737 


4371^10 


002267' 




1589 


001740 


6061»,0 


400000 




15913 


001741 


254070 


001731' 




1591 


001742 


462000 


002254' 


SEARFN 


1592 


001743 


254e.;ie 


000022' 





) jumpe-jumpn 

IjUMPf^ T. 



iPREVENT TYPE OUT OF OD" PARTS 



TLO F,.LTr 

HRRH T.T 

MOVEI R. 322000-32600'' 

ADOI R,326000+40»T 

HRUM R,SEAR2 

TL2N F.UF 

JRST ERR 

SETCAM T.WRO 

i^OVSI T.FRASF-DEM-l 

SETCMM FRASE(T) 

AOBJN T. .-1 

MOVE T.ULlMIT 

TLNE F/SAF 

TLO F,QF 

PUSHJ P. SETUP 

PUSHJ PiCRF 

PUSHJ P. FETCH 

JRST SEAR2B 

TLNE F.LTF ICHECK FOR EFFECTIVE ADDRESS SEARCH 



ISIMULATE A SQ TYPED 



JRST EFFEC0 
FQV T.WRn 
AND T.MSk 
JUMPE T,SEAR3 
AOS R.DEFV 
PUSHJ P, LISTEN 
CAMLE R.ULIMIT 
JRST SEARFN 
JRST SFARl 

MOVEI Ri400000- 
lORB RiDEFV 
TRNN R, 400000 
JRST SEAR2A 
SETCMM LWT 
JRST ODl 



lOR JUMPM T 
IGET NEXT LOCATION 
lANYTHING TYPED? 
lOR END OF SEARCH? 

lYES 

INC, LOOK SOME MORE 



IMOVE UP TO HI SEGMENT 

IPUT IN "EMORY TOO 

lALREADY IN HI SEGMENT? 

INO 

ICOMPLEMENT RITS BACK AND STOP SEARCH 



EODT 



VIZI22 -EXEC MODE DRT 

2 JUN 69 



MACRO. V36 19106 4-JUN-69 PAGE 3fl 



1593 


001744 


200100 


002267' 


SEAR3! 


MOVE R.DEFV 


1594 


001745 


260040 


001454' 




PUSHJ P. FETCH 


1595 


001746 


2540P0 


000151' 




JRST ERR 


1596 


001747 


6210P0 


004000 




TL2 F,STF IGET 


1597 


001750 


200240 


002267' 




MOVE T.DEFV 


1598 


5)01751 


260040 


000711' 




PUSHJ P.LIl ICAL 


1599 


301752 


260040 


002421' 




PUShJ PfCRF 


16k"K 


001753 


4620?0 


002254' 




S£TC"M LWT 


16!'l 


001754 


4620?'0 


002356' 




SETCMM TEM 


16f2 


001756 


2540'»0 


001731' 


SEAR4: 


JRST SEAR2A 


1603 












16l»4 


001756 


2012'^0 


000100 


EFFEC0! 


'fOVEI W,100 


16Z5 


001757 


2022K0 


002356' 




MOVEM W.TEM 


1636 


001760 


200200 


000005 


EFFECll 


HOVE w,T 


16?!7 


001761 


135100 


003204' 




LDB R. [POINT 4,T,17] 


1678 


001762 


322100 


001766' 




JUMPE R.EFFEC2 


16C9 


001763 


260040 


001454' 




pushj p. fetch 


16J0 


001764 


254000 


000151' 




JRST ERR 


1611 


001765 


270240 


000004 




ADD T,W 


1612 


001766 


540100 


000005 


EFFEC2I 


MRR R,T 


1613 


001767 


607200 


000030 




TLNN W.20 


1614 


001770 


254000 


001775' 




JRST EFFEC3 


1615 


001771 


372000 


002356' 




SOSE.TEM 


1616 


001772 


250040 


001454' 




PUSHJ P. FETCH 


1617 


001773 


254000 


001755' 




JHST SEAR4 


1618 


001774 


254000 


001760' 




JRST EFFECl 


1619 


001775 


444240 


002247' 


EFFEC3! 


EQV T.WRO 


1620 


001776 


405240 


777777 




ANDI T, 777777 


1621 


001777 


2540(7.0 


001730' 




JRST SEAR2 



IGET RID OF SUPPRESS TYPEOUT MODE 

ICALL REGISTER EXAMIN'ATION LOGIC TO TYPE OUT 



IGET IR FIELD 



I INDIRECT BIT CHECK 



EDDT 



V022 
? JUM 



-EXEC MODE DHT MACHQ.V36 19J0A 4-JUN-69 PAHE 39 



69 



16?2 
1523 
16ri4 
1625 
1626 
1627 
1628 
1529 
163K 
1631 
1632 
1633 
1634 
1635 
1636 
1637 
1638 
1639 
164 

1641 
1642 
1643 
1644 
1645 
1646 
1647 
1648 
1649 
1650 
1651 
1652 
1553 
1654 
1655 
1655 
1657 
1658 
1659 
1660 
1661 
1562 
1663 
1664 
1665 



C020^0 6070? 



("020»'l 55C260 002274' 



002302 
0020C3 
002004 
002006 
002006 
002007 
002010 

002011 
002012 
002013 

002014 
(''02015 
002016 
002017 
002020 
002021 
002022 
002023 
002024 
002025 
002026 
002027 
002030 
002031 
002032 
002033 
002034 
002335 
002035 
002037 

002040 

002041 
002042 
002043 
002044 



552240 
553100 
6070!»0 
4031C''0 
313li!0 
2540i«0 
263040 

607000 
254000 
250040 

550160 
574320 
274300 
213000 
201240 
6051?10 
254000 
305100 
201100 
301100 
303100 
254000 
201100 
311100 
313100 
254000 
550100 
313100 
254000 
260040 
664100 
344170 
606100 
344l,-«0 
254000 



000001 SETUP! TLNN F,aF 

IFM EUDT«10,<:MnVEI T, 137777 

IFF FL)DT«10,< 

IFE FUr)T«l,<MOVEI T, 777777 

IFM FUOTSl,<HRRi T.gSVMP 



002270' 

002267' 

001000 

002267' 

002270' 

000151' 

000000 

010000 2ER0: 

000151' 

0020^0' 

002274' 

002274' 

000003 

0000("6 

000000 

777760 2EP01i 

002335' 

000040 

000040 

000000' 

003270' 

002031' 

003270' 

000003 

000006 

002035' 

000006 

002270' ZEROR! 

000022' 

001446' 

377777 

002021' 

400000 

002021' 

000022' 



HRRi!M T,I.1LIMIT 
HRR2S R.OtFV 
TuNn F.F4F 
SETifR R.nEFv 
CAMLF n.llLlHIT 
JRST ERR 
POPj P. 

TLNN F.CCF 
JRST ERR 
PUSMJ P. SETUP 



MKR? S. 
HLRE Wl 
SUP Wl. 
MOVKS W 
KOVEI T 
TRNIM R, 
JRST ZE 
CAIGE R 
MOVEI R 
CAIL R. 
CAILF R 
JRST 
MQVEI R 
CAML R. 
CAMLE R 
JHST .♦ 
MRR2 R, 

CAMLE R 
JRST DD 
PUShJ P 
TROA R 
AOJA R. 
TRUJN R, 
AOJA R. 
JRST DO 



SSYMp 

. 9SYMP 

S 

1 

,0 

777760 

ROR 

,ZLOW 

.ZLOW 

DDT 

nDTE\0 
2 

.DDTE^Q 
S 

.Wl 
2 

Wl 

.ULIMIT 
1 

.OEP 
.377777 
ZEROl 
40000!' 
ZFROl 
1 



IVES, 



lUUANTITY TYPEn? 

(DON'T SEARCH BEYOND 45K> 

!Nf), GET LAST ADR> 

INO. tET 1ST ADR SYM T4BLE> 



ISAVE LAST ADDRESS OF SEARCH 
IGET 1ST ADDRESS 
IWAS A 1ST ADR SPECIFIEDJ 
INO. MAKE IT ZERO 
ILIMITS IN A REASONABLE ORDER? 
INO 
RETURN 



IGET 1ST ADR OF SYM80L TABLE 

IGET LENGTH OF SYM TABLE 

IGET NEG OE LAST ADR 

IGET POS LAST AQR 

10 TO STORE IN MEMORY 

!0K TO ZERO AC'S 

IDON'T ZERO 20 THRU ZLOW 



IDON'T ZERO DDT 



IDON'T ZERO SYMBOL TABLE 
lABOVE LIMITS? 
lYES. STOP 
IDEPOSIT T 



IHI i^egment? 

INO. KEEP GOING 
IFINISH 



(CDHT 



V022 -EXEr MODE DHT 

7 JUM 69 



'^ACrtO.V36 19306 4-JIJN-69 PAGE 4C 



1666 
1667 
1668 
1669 
1670 
1671 
1672 
1573 
1674 
1675 
1676 
1677 
1678 
1679 
16fl0 
16"! 
16B2 
1603 
16B4 
1685 
1686 
1637 
1688 
1689 
1690 
1691 
1692 
1693 
1694 
1695 
1696 
1697 
1698 
1699 
17C0 
\TJ'\ 
17H2 
17C<3 
1704 
17!?5 
17516 
17''7 
1718 
17719 
1710 
1711 
1712 
1713 
1734 
1715 
1716 



P102045 
^0?045 
002046 
002047 
002t)50 
002051 
002052 
002053 
002054 
002055 
002056 
002057 
00206H 
002061 
002062 
002063 
002064 
002065 
002066 
002067 
002070 
002071 
002072 

002073 
002074 
002075 
002076 
002077 
002100 
002101 



002102 
002103 
002103 
002104 
002105 
002106 
002107 
002110 
002111 
002112 
002113 
002114 
002115 
002116 
002117 
002120 
002121 



5503.'0 
3063«0 
607240 
2540^0 
542240 
557000 
260040 
2053^0 
260040 
201240 
5503.50 
306300 
254000 
246240 
242300 
235260 
5063^1 
332030 
260040 
554241 
271240 
254080 

214l"iB 
325240 
201240 
260040 
260040 
201240 
254000 



000012 

000010 

777777 

002057' 

002056' 

000005 

002062' 

261300 

002242' 

000000 

000012 

000012 

002073' 

777735 

777777 

000012 

000000 

0000^5 

0020'<.2' 

000000 

000060 

002440' 

000005 

002077' 

000055 

002440 ' 

002235' 

000056 

002440 ' 



FTOC! 
TOC! 



TOCSl 
TOCA! 



TOC0: 



TDC4: 



TOCSi 
T0C61 



mkRH 

CAIiM 

TLNN 

JRST 

hRRm 

HLRZS 

RUSHJ 

»<OVS! 

RUSHJ 

MOVEl 

HRRii V.1 

CAIN Wl 



;NUMERIC OUTPUT SUPROUTIME 



wi.noF 
w 1 . 1 

Ti-l 

TncA 

T.TOCS 
T 

PiToca 

Wl, (ASCI I 
P.TEXT2 
T. .-. 

PDF 

12 



MS OUPUT RADIX NOT OCTAL" OR 

lARE THERE MO LEFT HALF BIT?? 

lYES. DO NOTHING SPECIAL 

INO, TYPE AS HALF WORD CONSTANT 

IGET LEFT HALF 

ITVPE LEFT HALF 



(TYPE ., 
IGET RIGHT 
I IS OUTPUT 



HALF RACK 
RADIX DECIMAL? 



JRST T0C4 
LSHC T.-43 
LSH Wl,-1 
niVl T.^OOF 
HRLM W1.0(P) 
SKIPF T 
PUShJ P.TOC0 
HLR2 T,0(P) 
ADO I T,"0" 
JRST TOUT 

"OVM A,T 
JUMPGE T,T0C5 
MOVEI T,"-" 
PUSHJ p. TOUT 
PUSHJ P,FP7 
MOVEI T."," 
JRST TOUT 



lYES.TYPE SIGNED WITH PERIOD 



IW1=T+1 



ITYPE AS SIGMED DECI»4AL INTEGER 



(DECIMAL PRINT ROUTINE 



JSYMROL OUTPUT SUBROUTINE 



562300 002266' 



SPT0! HRR2M Wl.SPSAV ISAVE POINTER TO TYPED SYM 

SPTi (RADIX 50 SY^'BOL PRIMT 

135240 003205' LOB T.CPOINT 32,0(W1),353 IGET SYMBOL 

231240 000050 SPTl! IDIVl T,50 

506301 000000 WRLMW1.0(P) 

322240 002110' JUMPE T,SPT2 

260040 002104' PUSHJ P. SPTl 

554241 000000 SPT2: HLRii T.0(P) 

322240 000432' JUMPE T.cPOPJ 

271240 000257 4DDI T. 260-1 

303240 000271 CAILF T,271 

271240 0000,-»7 AODI T, 301-272 

303240 000332 CAlLE T,332 

275240 000070 SUBI T, 334-244 

306240 000243 CAIN T.243 

201240 000256 MOVEI T,256 

254000 002440' JRST TOUT 



IFLUSH NULL CHARACTERS 



EOnT 



V022 -EXEC MODE DDT 
? JUN 69 



MACRO. V36 19!06 4-JUN-69 PAT.E 4L 



1717 


B02122 


201240 


000002 


SYMDi 


«OVEI T,DELO/2a0000 


171.8 


?0212si 


SiSlO'li 


002266' 




HRRZ R.SPSAV 


1719 


(102124 


322100 


000151' 




JUMPE R,ERR 


1720 


002125 


137240 


003160' 




DPB T.CPOINT 2,(R).n 


37J1 


fi02126 


200240 


002254' 




MOVE T.LWT 


17?2 


002127 


254000 


001532' 




JRST CONSVM 



iSn IDELETE LAST SYM S PRIMT NEW 
IPICK UP POINTER TO LAST SYM 

ISTORE SEMI-DELETE SITS IN SYMBOL 

IPRINT OUT NEXT BEST S^'MBOL 



EDDT 



VB22 -EXEC MODE DOT 
? Jur; 69 



MACRO. VJf 19:06 4-JIIN-69 PAnE 4J 



t733 








iFLOATI 


NT, POINT OUTPUT 


1724 












1725 


I?02l30 


200100 


000005 


TFLOt: 


MOVE AiT 


1726 


002131 


327in;0 


002140' 




JUMPG A. TFLOTl 


1727 


002132 


322100 


002147' 




JUMPE A.FPlA 


1728 


002133 


2130a0 


000002 




MOVNS A 


1729 


P102134 


201240 


000055 




MOVEI T,"-" 


1730 


002135 


260040 


002440' 




PUSH J P. TOUT 


1731 


002136 


623100 


400000 




TLZE Ai400000 


1732 


002137 


254000 


002147' 




JRST FPlA 


1733 


(?02140 


6071i-''0 


000400 


TFLOTlI 


TLNN Ai 400 


1734 


002141 


2540i?!0 


002077' 




JRST T0C5 


1735 












1736 


!!02142 


201140 


000000 


FPl! 


MOVEI Bi0 


1737 


002143 


315100 


002231' 




CAMGE A,FT01 


1738 


002144 


254000 


002167' 




JRST FP4 


1739 


002145 


3111?0 


002217' 




CAML A,FT8 


1740 


002146 


344140 


002167' 




AOJA B,FP4 


1741 


?02147 


2012!»0 


000000 


FPIA! 


MOVEI C.0 


1742 












1743 


Pl02l5a 


225lt'0 


000400 


FP3! 


MULI At400 


1744 


002151 


244142 


777535 




Ague B. -243(A) 


1745 


I^0?l52 


4020Z0 


002357' 




SETHM TEMl 


1746 


5502153 


332100 


000003 




SKIPF A,R 


1747 


1^02154 


260040 


002205' 




PUSHJ P.FP7 


1748 


002155 


260040 


002100' 




PUSHJ P.TDC6 


1749 


002156 


2111C0 


000010 




MOVM A, 10 


1750 


002157 


2701!'0 


002357' 




AOn A.TEMl 


1751 


002160 


2003-10 


000004 




MOVE Wl.C 


1752 


002161 


200240 


000006 


FP3A! 


MOVE T.Wl 


1753 


002162 


225240 


000012 




MULI T.12 


1754 


002163 


260040 


002213' 




PUSHJ P.FP7B 


1755 


002164 


3320f0 


000006 




SKIPF, Wl 


1756 


002165 


3411'0 


002161' 




AOJL A,FP3A 


1757 
1758 
1759 


002166 


263040 


000000 




POPJ P, 


002167 


2112.10 


000006 


FP4: 


MOVNI C,6 


1760 


H02170 


201340 


000000 




MOVEI W2,0 


1761 


002171 


240340 


000001 


FP4A ! 


ASH W2.1 


1752 


002172 


2560?3 


002232' 




VCT,FCP<B) 


1763 


002173 


254070 


002176' 




JRST FP4B 


1764 


002174 


164123 


002233' 




FMPR A.i?FCPtl(B) 


1765 


002175 


435340 


000001 




lORI W2,l 


1766 


002175 


3462?0 


002171' 


FP4B! 


AOJN C.FP4A 


1767 


P!02177 


261040 


000007 




PUSH P.H2 


1768 


0022i7'0 


261043 


002235' 




PUSH P.FSGNI a) 


1759 


002201 


260040 


002150' 




PUSHJ P,FP3 


1770 


0022?2 


262040 


000006 




POP P.Wl 


1771 


002203 


260040 


002240' 




PUSHJ P. TEXT 


1772 


002204 


262040 


000002 




POP P,A 



IIF UNNORMALIEED. TYPE AS DECIMAL. IKTEGEP 



) IMIT a niGIT COUNTER 
iDON'T TYPE A LEADING 
|PRI':T INTEGER PART OF 8 DIGITS 
IPRINT DECIMAL POINT 



ISAVE EXPONENT 

ISAVE "E*" OR "E-" 

IPRIMT OUT FFF.FFF PART OF NUMBER 

(GET "£♦" OR "E-" BACK 

IGET EXPONENT BACK 



EDDT 



Va22 -EXEC MODE DDT 
? JUK 69 



MACRO. VJ6 19!a6 4-JUN-69 PAf^E 43 



1773 


5ie22l>i5 


2311J0 


000012 


FP7! 


IDIVI A. 12 






1774 


002206 


35001^0 


002357' 




AOS.TEMl 






1775 


002207 


506141 


000000 




"RLM b. (P) 






1775 


002210 


322100 


002212' 




JUMPE A,FP7A1 






1777 


002211 


260040 


002205 1 




PUSHJ P.FP7 






1778 
















1779 


002212 


554241 


000000 


FP7Ali 


HLR2 T, (P) 






17S0 


002213 


271240 


000260 


FP7B! 


AOOI T,260 






17P1 


002214 


254000 


002440' 




JRST TOUT 






1782 
















17S3 


002215 


353473 


426555 




^53473426555 




.0F32 


1784 


002256 


266434 


157U6 




266434157116 




.0F16 


17fl5 


002217 


233575 


360400 


FT8: 


233575360400 




.0F8 


1786 


002220 


216470 


400000 




216470400000 




,0F4 


17R7 


002221 


207620 


000000 




207620000000 




.0F2 


17P8 


002222 


2045P0 


000000 




204500000000 




I0F1 


17P9 


002223 


201400 


000000 


FT! 


2014000000^10 




1 0F0 


1700 


002224 


026637 


304365 




026637304365 




P0F-32 


1791 


002225 


113715 


126246 




113715126246 




,0f;-i6 


1792 


002226 


145527 


461671 




146527461671 




,0F-8 


1703 


002227 


163643 


334273 




J63643334273 




0F-4 


1794 


002230 


172507 


534122 




1725?i75341?2 




0E-2 


1795 


002231 


175631 


463146 


FT011 


175631463145 




0F-1 


1796 






002232' 


FT0=FT01+1 






1797 
















1798 


002232 


313104 


002232' 


FCP: 


CAMlE A, FT0(C) 






1799 


002233 


315l?4 


002223' 




CAMGF A, FT(C) 






18^0 


002234 


000004 


002232' 




Z FT0(C) 






18!"1 
















185)2 


002235 


425320 


000000 


FSGN: 


ASCII .E-, 






ia?3 
I8r4 


002236 


425260 


000000 




ASCII .E+. 






18!»5 


002237 


200300 


000005 


TEXTT! 


MOVE Hl.T 






isi'e 


002240 


607300 


774000 


TEXT; 


TLNN Wl, 774000 




1 


IBS'? 


002241 


242300 


000035 




LSH Wl,35 






18f)8 


002242 


201240 


000000 


TEXT2! 


MOVEI T,0 




1 


18I"9 


002243 


245240 


000007 




LSHC T.7 






1810 


002244 


260040 


002440' 




pushj p. tout 






1811 


002245 


3263J'0 


002242' 




JUMPN W1,TEXT2 






1812 


002246 


263040 


000000 




POPJ P, 







lOECIMAL OUTPUT SUBROUTINE 



ILFFT JUSTIFIED UNLESS LFFT CHAR IS NULL 
17 BIT ASCII TEXT OUTPUT SUBROUTINE 



EDDT 



V022 -EXEC MODE DOT 
2 JUN 69 



»1ACRn,V3A 19S06 4-JUN-69 PAGE Ai 



1813 


5102247 


000a('0 


000000 


WRD! 


f" 


1814 


Pi022'50 


'?^ 


000000 


WR02: 





iai5 


002251 


0000?0 


000000 


PRMC! 


M 


1816 












1817 


002252 


0000?0 


000000 


FRASE! 


^ 


1818 


002253 


0000C0 


000000 


SYl: 


!^ 


1819 


002254 


0a00p'0 


000000 


LWT! 





1820 


002255 


000000 


000000 


TEM2! 





1821 


002256 






FRASEl: 




1822 


("02256 


000000 


000000 


TEM3: 





1823 


002257 


00001710 


000000 


DEN! 


a 


1824 












1825 


002260 


000000 


0000(!I0 


PRGM! 





1826 


002261 


000000 


000000 


ESTU: 





1827 


002262 


000000 


000000 


ESTUT! 





1826 


002263 


000070 


000000 


FSV! 





1829 


002264 


000000 


000000 


FH! 





1830 


002265 


000000 


0000?I0 


SYMI 





1831 


002266 


000000 


000000 


SPSAV! 


3 


1832 


002267 


0000P0 


000000 


OEFVi 





1833 


002270 


0000P0 


000000 


ULIMITi 





1834 


002271 


0000^0 


0000(10 


LLDC! 


i< 


1835 


002272 


0000F0 


000000 


LLOCO! 





1836 


002273 


0000''0 


000000 


SAVLOCI 


f! 


1837 


002274 


000000 


000036 


SYMP! 


Xt 



JDONT CHANGE ORDER, SEE SEARC+3 



IPOINTFR TO LAST SYMBOL TYPED 



XWD PID.JOBSYM 



ITHE ADR OF OLD REGISTER EXAMINATION SEQUENCE 



EDPT 



V0?2 -EXEi" MODE QOT 
?. JU^' 69 



MACRr).V36 19!26 4-JUN-69 PARE 45 



1838 


f a?275 


0000 ■.■0 


000000 


SAVPI ! 


r^ 


1839 


002276 


000000 


001177 




1177 


1810 


^02277 


0000"0 


000000 


SAVTTYI 





1801 


!ia23f0 


777777 


777777 


^•SK: 


XWD -1,-1 


1812 


0023f 1 


000000 


000000 


BIAORI 





1843 


B023<»2 


000t-'.'e 


000000 


aiSKP: 





1844 


7023C3 


0000i'0 


000000 


BICNT! 





1845 












1845 








REPEAT 


NBP»3-3, < 


1817 


C023?4 


300000 


000000 







1848 


f 0?3:'5 


0000^C 


000000 







1849 


?'023?6 


0000-0 


000000 




(^ 


1852 


!?023^7 


0000','0 


000000 




P 


1851 


f02310 


0000?0 


000000 




■7 


1852 


f02311 


000fe;''0 


00005)0 




t' 


1853 


f02312 


000000 


000000 




5" 


1854 


5)02313 


000070 


000000 




7 


1855 


?102314 


0000,-0 


000000 







1856 


K02315 


0000P0 


000000 




n 


18=^7 


002316 


0000^0 


000000 




n 


1858 


002317 


000e-'0 


000000 







1859 


002320 


0000:.-e 


000000 







1860 


002321 


0000^0 


000000 







1861 


002322 


000e-'0 


000000 







1862 


Ca2323 


0000/10 


000000 







1863 


002324 


0000r-0 


000000 




fH 


1864 


(102325 


000000 


000000 




7. 


1865 


C02326 


0000?0 


000000 







1866 


002327 


000070 


000000 







1867 


002330 


00000 


000000 




•^ 


1863 












t8ft9 






002326- 


BNAOR=. 


-3 


1370 


"02331 


00e0-"0 


000000 


AUTOPI ! 





1871 












1872 








IFE EnDT^10,< 


1873 


002332 






AC0! 


BLOCK 17 


1 874 












1375 


002351 


000000 


000000 


AC17: 


ffl 


1876 








> 




1877 












1878 


002352 


(700070 


001537' 


SCHMl 


rxp PIN 


1879 


002353 


000000 


001622' 


arm: 


EXP PAnSQ 


18B? 


002351 


000000 


000010 


OOFM! 


EXP 10 


1 a « 1 












1 •^'^2 


002355 


0000^0 


000000 


SARS! 





13 = 3 


002356 


0000:'Z 


000000 


TEm: 





J 8°4 


002357 


000000 


000000 


TEMl! 





1885 








IFfJ EOD 


T«10,< OFFS 



0> 



IDO '.IOT CHANGE ORDER 



EOOT 



I8e6 

3887 

laes 

10fl9 
1890 
ld91 
1B92 
1893 
tS94 
1895 
1B96 
1897 
1898 
1899 
1 9^0 
19C''l 
19?2 
19K3 
19J14 
19^5 
19!!6 
19!<7 
19K8 
19!19 
1910 
1911 
1912 
1913 
1914 
1915 
1916 
1917 
1918 
1919 
192e 
19?1 
1922 
1923 
1924 
1925 
1926 
1927 
1928 
1929 
1910 
1931 
1932 
1933 
1934 
19 35 
1936 
1937 
1938 



V022 -EXEC MODE DDT MACHO. V3f> 19:05 4-JIJN-69 PAnE 46 
2 JU^! 69 

IFN EDDT«1«<ED0T>B36,< 



punch; 



PUN'2! 



PUNl! 



PBLK: 



PBLKli 



TLC F 


.FAF'QF 


TLCE 


F,FAF*QF 


JRST 


ERR 


4D0I 


T.l 


HRRH" 


T.TEMl 


f^UR T 


,OEFV 


JUMPLE T.ERR 


MOVEI 


T,4 


PUShJ 


P. FEED 


TLNE 


F.CF 


JHST 


PUN? 


WRR£ 


R>OEFV 


lORl 


R,37 


*oni 


R.l 


CAMLE 


R.TEMl 


MOVE 


R.TFMl 


EXCH 


R.OEFV 


MOVE 


T.R 


SUB T 


,DEFV 


MRU R 


,T 


JUMPGE R.RET 


MOVE 


T,R 


SOS W 


, T 


PUSHJ 


PiPWRQ 


PUSHJ 


P. FETCH 


JRST 


ERR 


ADO W 


,T 


PUSHJ 


P.PWRD 


AUBJM 


R.PBLKl 


MOVE 


T,W 


PUSHJ 


P.PWRO 


JHST 


PUNl 



IPUNCH N0N-2ER0 BLOCKS 



lONE ARGUMENT MISSING 



IPUNCH 4 FEED HOLES 

(PUNCH NnN-^ERO 3L0CKS7 
lYES 



(EXIT OR PUNCH 



MNIT CHECKSUM 



ILDOK AT NEXT WORD 

lENTER HERE - GET STARTING ADDRESS 

•CALCULATE NEGATIVE LENGTH 

(SET UP AOBJN POINTER 

IFINISHED? 

I8L0CK LONGER THAN 40? 

lYES. FIX IT UP 

)W1 NEGATIVE MEANS FLUSH WORDS 

IGET WORD FROM MEMORY 



PUN!i0l AOS OEFV 
PUNl!! HRRi W.DEFV 

MOVE R,W 

SUB W,TEMl 

HRL R.W 

JUMPGE R.RET 

CAMG R.EXWO -40,0] 

HRLI R.-40 

MOVSI Wl, 400000 
PUNi!2! PUSHJ PiFETCH 

JHST ERR 

JUMPE T.CAOJA W1,PUN?43 IIF WORD IS <f , INDEX WORD COUNTER 



:ddt V022 -Exer 

? J^J^' 6 9 

1 ';-'9 

] 91£ 
IJIl 
19<!2 
19':< 
19.14 
19 4 5 
1946 
1947 
19 4 8 
1 949 
1 9b f 
19'il 

19'53 
19'54 
t9'^5 

19 = 6 
19'-7 

1 9'- 8 
1<;';9 
1 if-Z 
19'1 
19'-2 
19'-.3 
] 9*4 
1965 
1966 
1967 
1968 
1 9*9 
197^ 
1971 
1972 
1973 
1974 
1975 
1976 
197 7 
1978 
19 7 9 
19«0 

1 9 P 2 
IVZ 
1 5 ■■> 4 
19fl5 
19R6 
19'i7 
1988 
19fl9 
1990 
1991 



MODE OnT M4CH''.V3* 19:t)6 4-ji|N-69 PACE 46-1 



"CVEI l-'l,Z 
JUMPL W1,PUN?0 
'■AlL Kl.3 
taS4 K 

AORJ^ 9,pu\£? 
4DP -IpDrFV 
^UH «1.,R 
WKLM Wli-'EFV 
FXCH R.OEFV 
JftST potK 



L04DE«: TL'.E F,UF 
JHS1 £PM 
MOVE I T,4t"?' 
"UShJ P.FEEC 
"UVE fiiLCADE 

uoni : MOVE T,Z(fi) 

DUShJ P,P»KD 

4 0PJ\ R.LOAOl 

"OULI T,20 
LOAD?! PUSHJ P. FEED 

JKST PFT 

BLKEmO: TUNN F,QF 

MOVE T.CJRST ''.QriJ] 

TL^■^ T,777Ci?;! 

TUO T, (JRST) 
PUSh P,T 
MOVEI T,2a 
PUSHJ OiFEEO 
POP P,T 
PUSHJ p.PWRD 
PUShJ P.PWRQ 
I'DVEI T,40? 
JRST L0An2 



ICLEAR l.ORri COUNTER 

!FLUSh tvORr, GET AiMOTHER 

I 'iOSKIP FOR 3RD k-QRO SFTER NON WORD 

iAOVANCE R TO LAST AOR+l 

{CALCULATE OEpv-R+Wl^-waRO COUNT 

(PUT -WC IN LEFT HALF OF FA 

ISAVE ADR FQP NEXT BLOCK, GET POINTER 



IHLOCK EMC 
I INSERT JRST 



IF NO OPCODE 



EXT^^A k.ORO FOR REAOFR TO STOP 0» 



PwRi); 


'^ovEi wi.a 


PWRlIS ! 


ROT T,6 




r/oKS? ptpp,;-' 




JHST .-1 




rC^iC PTPP,5? 




nATA" PTPP , T 




■^Cjr. i«1 ,PWR02 




PCP„- P.0 


fef:i 


TONS? PTPP, 2" 




JR-^T .-1 




r-0*JO PTPP, 10 




oaTaO °TPP,FEEni 




SOJN T.FEEO 



EDHT 



V022 -EXET >^ODE DHT MArR:^ . V36 ] 9 ; 06 l-jtiN-fi? PAf^E "It-? 

? JJN 69 



1992 
1993 
1994 
1995 
1906 
1997 
1998 
1999 

?:i.<f<i 

?i3P2 

?eipi3 

2014 
?api5 

?0ri6 

2i?i>7 
?0C9 

2ai0 

2H11 
2312 
2313 
2014 
25)15 
2016 
2017 
2018 
2019 
2020 
2021 
2022 
2323 
2024 



FEEOl! °OPj P.£ 



JA0D'?ESS USED AS A CONSTANT 



LOAUO! 

PHASE jRlMiaP CHECKSUM LOATER 

X<kV, -16,(71 
beg: CpNO PTRR,6^ 

MRRI AA,PD*1 
RD! rOMSn PTRR.IC 

JRST .-1 

PATaI PTRR.i?tBu1-R0 + 1 ( AA) 

XCT TBL1-RD*1(AA) 

XCT TBLZ-RD + KAA) 
AA! SDJA AA, 

TBLl: '•AME CKSf^.AQR 

ADO TKSMiKAOR) 
SKIPL CKSM.ADR 

TBL2! JRST 4. BEG 

AOBjk' ADR.RD 
ADR; JRST BEG+1 
CKSM=A0R+1 

DEPHASE 

LOAOEI yWO LOADB-, .LOADP 
> ;END OF IFN EDnTfl«<rDDT>B36 
iFOR PAPER TAPE 10 



EDDT 



V022 -EXEC MODE OnT 
2 dm 69 



MACHO. V36 19:06 t-JuN-S? PACE 47 



7.i?5 

7f.?l 
?d?S 

2,::>9 

2,131 
23 72 
par's 
2 a 3 4 
?2!35 
2236 
2^37 
2036 
2339 

22141 
2a42 
7243 

2044 
2H45 
2046 
2347 
2048 
20 4 9 

20S0 

2051 
2052 
2053 
20?4 
2055 
2056 
2057 
2056 
2059 
"060 
2061 
2062 
2063 
2064 
2065 
2066 
2067 
2l'68 
2069 
2/T70 



^02360 000ii.:"P Z00ap'0 SAVEI 



2361 
2362 
2363 
2364 
2365 
23(>5 
2366 
2367 
2370 
2371 
2372 
2373 
2374 



002374 
002375 

1?02376 
?02377 
!'02400 

c"024''l 
?024E'2 
0024t"3 
5"024P4 

002475 
0024f6 
0324'."7 



^■02410 
5102411 
002412 
['02413 
002414 
002415 
f024l6 



iSAVt- THE ACS AND PI SYSTEM 



3360''0 
254000 
350000 
254000 

700640 
700670 
202740 
551740 
251740 
200240 
502240 



4760/0 
20ie40 



4760"0 
542240 
200240 
502240 

404240 
435240 
202240 



515740 
251740 
4020"'0 
331000 
2610B0 
700620 
254120 



002355' 
002365' 
002360' 
002374' 

002275' 
002276' 
002351- 
002332' 
002350' 
002360' 
002275' 



SAVl! 



002355' 
003220' 



200240 003147' 
251240 000012 
254020 002360' 



002256' 
002360' 
002275' 
002360' 

002275' 

002000 

002275' 



002332' 

000017 

002355' 

002256' 

001133' 

002275' 

002360' 



SAVSi 
IFE 



SKIPM SARS 

JRST SAVl 

40S SAVE 

JHST S4V5 

IFN FDDT«1,< 

CONI PRS.SAVPI 

rO'JC PPS, i?SAVPItl> 

k-CVEM 17,AC17 

HRRZI 17,AC0 

niT 17,AC0*16 

WOVE T, SAVE 

MLLM T, SAVPI 

EDDTS1,<HRR2S SaVUWP 
SET'B T,F 
CALLI T.SETUWP 
HRROS SAVUWP 
SKIPN SARS 

HPR-^ T,SAVUWP> 



SETC« SARS 

>10VE1 PiPS 

IFE FD0TS1,<PUSHJ P,TTYRET> 

"OVE T.CXWD SCMM.SCH] 



iT=F=0 



iASSUME UWP WILL BE 7ER0ED 

(REQUEST TO CLEAR UwP 
JFAILED. UWP (HIT 0) STILL 1 
SUSERIS STATE SAVED ALREADY? 

INO, SAVE STATE OF UWP 

(FLAG PROTECTING SAVED REGISTERS 

!IN USER MODE, GET INTO DQT MODE 



PLT T.OOF 
jRST S.SAVE 



RESTOrcE! SETTM TEM3 
RLSTRl: HHRM T.SAVE 

MOVE T.SaVPI 

HLL" T, SAVE 
IFH E11DTS1,< 

AND T , SaVPI+1 

lORI T, 2000 

mOV£M T, SAVPI> 
IFE EDDT81,<HRR? T, SAVUWP 

CALLI T.SETUWP 

JFCL> 

HRLiI 17,AC3 

"LT 17.17 

SETHIS SARS 

":kIPL.TEm3 
CPUSMP: push BCOM 
IFV FDnT<l,< CONO 

JRST 2,i?SAVE 



ILOAO THE ACS WITH MODE SWITCHFS 



RESTORE ACS AND PI SYSTEM 



iTUR*- ON CHANNELS 



IGET OLD UWP 
(CHANGE IT TO OLD 
)ES maChT NICHTS 



(PROGRAM MODIFIED AT IPUSHJ 
PRS,9SAVPI> 



EDDT 



V022 -EXEr MODE DOT MAr:R0,V3iS 19!1?6 l-JIIN-feQ PAGE 4S 
? JUN 69 



2071 
?072 
2073 
2074 
2375 
2076 
2077 
2078 
2079 
20B0 
20P1 
20P2 
23B3 
20f<'l 
2085 
2286 
2087 
2088 
2089 



002417 201240 000015 CRM! 
002420 2640W0 002440' 



MOVEI T,l5 
JRST TOUT 



(CARRIAGE RETURN 



002424 260040 

002425 260040 



002426 20124t! 

002427 2540P0 



000040 
002440' 



IFE EUDT.^1,< 

CRNRBi PUSHJ P.CRN 
MOVEI T,l77 
JRST TOUT> 



002421 260040 002417' CRF ! 

002422 201246) 000012 

002423 254000 002440' 



002426' LCTl 
002426' 



TSPC! 



PUSHJ P.CRN 
MOVEI T,l2 
JRST TOUT 



ILINE FEED 



IFN EDDT«1,<PUSHJ P.TSPC 

PUSHJ P.TSPC> 

IFE ED0T«1,<M0VEI T,H 

JRST TOUT> ITVPE A TaE 



MOVEI T,40 
JRST TOUT 



ISPAfE 



fOHT 



J050 

7^02 
?i)93 

2.J°<1 

2206 

?,399 
?1?0 

21^2 

31.^3 
2114 
21^5 
71-6 
?i;"7 

?i:-8 

?l/9 

•'lie 

2111 
2112 
3113 
Sll'! 
2115 
?116 
2117 
. 2118 
2119 
2120 
2121 
2122 
212 3 
2124 
2125 
2126 
2127 
2123 
2129 

7i:^0 
2ii: 

2172 

7 1 <3 

71"'4 
2175 
2] 76 
217 7 
2138 
2139 
2140 
2141 
2142 



V022 -EXEC MOOE DPT MACRO. V3ft 19!a6 4-J)Nl-6° PA"E 40 
2 JUK' 69 



IFM EUnTSl.< 



lEXECUTIVE M'^DE TELETYPE I/D 



7^2430 
(";)2431 
^02432 
f2l2433 
?^2434 
707431, 
702436 
?02437 

?'a244() 

7! .42441 
!'02442 
?'0244J 
?02444 
.'02445 
702446 
002447 
70245a 
702451 
722452 
702453 
702 4 5 4 
702455 

7024=6 
702457 
^02460 
702461 
702462 

702463 
702464 
702465 
7/2466 

702467 
002470 
302471 
002472 
702473 
702474 
'02475 
302476 
702477 
702570 
7025"1 



7025-'2 
702573 
7225''4 
702575 



267010 
254t»;'0 
302240 
306240 
201240 
3062'«0 
254ei'0 
602240 
307240 
263C 40 
506241 
221240 
404240 
227240 
544241 
60324P 
647240 
7123/0 
254070 
712140 
405240 
263040 

712340 

26374,,! 
7120'S7 
405240 
254070 

201240 
201340 
712370 
367340 
712240 
712040 
506340 
7122 7 5 
2 6 3 tM 7 
2,r7240 
6d3240 
600240 
602240 
620240 
254070 



260040 
606240 
254070 
263040 



002456' 

002430' 

000175 

007176 

007^33 

000177 

007155 ' 

007140 

000074 

007003 

007000 

200471 

003276' 

003206 ' 

000070 

000010 

000270 

007020 

002451' 

000075 

000177 

000000 

000040 
007070 
007S75 
000177 
000431 ' 

003410 

040000 

000120 

002465' 

002277' 

007007 

002277' 

000070 

007070 

002277' 

007160 

003630 

007010 

007270 

002464' 



TI» 



TOUT; 



002430' 
007140 
002440 ' 
000200 



1. I ? T r N • 



TTVSCT! 

TTYl! 



TTYLFV r 



TEXIn: 



JRST 
CAiE r 

TAIN. T 
"OVEI 
i-A IN T 
JRST K 
TR»'E T 
CAI G T 
POPj P 
i^RL" T 
!"l!LI 

4\T T, 

ik;:l T 
"LP T, 
TL^■E T 
TR" •', 

JHST . 
" A T 4 ^ 

'.s-I T 
PCPj P 



P.LISTEM 

.-1 

.175 

.176 

T.33 

.177 

.140 
.04 



iTELFTYPE CHARACTER INPiJT 



IC^A^GF ALL ALT MODE'; TO NEh 

1R1IB"UT? 

;YESi TYPE XXX 

!30IM'T ECHO CR,LE,ALT,TAB.E!ACK SPACE. ETC 

!D3N'T TYPE EOT OR lIWER CNARS 



T, 200471 
Clllllim 

.Liimiii: 
(P) 

.17 

207 

TTYY.27 
~ 1 
TTYY, T 

.l-'7 
.0 



igfnehate Parity 



iMAKE Parity even 



IFLUSH PARITY 



"C^'Sn TTyy,4'' 
PC°_ P. 
"A^AI TTYY.T 
ASni T.177 
.if>ST CPOPJl 

"CVE! T,3417 
xOVEI W2, 40000 
CO'>'S? TTYY, 120 
•^CJG W2. .-1 
rCM TTYY.SAVTTY 
PATai TTYY.»i2 
WRLM 1«2,SAVTTY 
"C^'O TTYY.(T1 
" ;• P J P . 
"Ct. T.SaVTTY 

•'hi ^ ,\bf: 
T K T , ,7 6 
'■RVE T,17 

T«5 T,200 

JRST TTYl 



tLlSTEN FOR TTY 



PUThJ P.TIN 
TRV\ T.140 
JhST TOUT 
POPJ P, 



ilNP'iT SUSPQUTINF FOR TEXT MODES 
lECH^ CHARACTERS (0-37) MOT ECHOED 



EDDT 



2143 
2144 
2145 
2146 
2147 
2148 
2149 
2150 
2151 
2152 
2153 
2154 
2155 
2156 
2157 
2158 
2159 
2160 
2161 
2162 
2163 
2164 
2165 
2166 
2167 
2168 
2169 
2170 
2171 
2172 
2173 
2174 
2175 
2176 
2177 
2178 
2179 
2180 
2181 
2182 
2183 
2184 
2185 
2186 
2187 
2188 
2189 
2190 
2191 
2192 
2193 
2194 
2195 



V022 

2 JUN 69 



•EXEC MODE DOT MACRO. V36 19!06 4-JUN-69 PARE 5C 



IFE ZODJn,< (USER MODE TnCTYPE 1/0 

IFN EDDT«4,< (ASSEMBLE WITH OLD DDT MODE 10 



tin: move t.poutbf 

came t,cp0int 7.inbff] 
pushj p.finout 



IGET NEXT CHARACTER ROUTINE 



IFE EDDT«10,< 
IFN EODT.<10,< 



ILDB T.PINBFF > 
PUSHJ P.INCHR > 



(CHANGE TO NEW ALT MODE 

IRUBOUT? 

(YES PRINT XXX 



CAIE T.176 

CAIN T,175 

MOVEI T,33 

CAIN T,177 

JRST WRONG 

JUMPN T.CPOPJ 

MOVE T, [POINT 7,INBFF] 

MOVEM T.PINBFF 

CALL T.CSIXBIT /DDTIM/] 

JRST TIN 

TOUT: JUMPE TiCPOPj (OUT PUT A CHARACTER FLUSH NULLS 

IFN EDDT«10,< SKIPE COMAND 
JRST PUTCHR > 

IDPB TiPOUTBF 

CAIE T,12 

POPJ P, 
TTYLEVI 
FINOUT: MOVEI T,0 

IDPB T.POUTBF 

MOVE T,CPOINT 7,IN8FF] 

MOVEM T,PINBFF 

MOVEM T,POUTBF 

CALL T»[:S1XBIT /DOTOUT/: 

CLEARM INBFF 

POPj P, 

PINBFF! POINT 7, INBFF 
POUTBFi POINT 7, INBFF 

LISTEN=CPOPj 
INBFFI BLOCK 21 

TTYRETI MOVE T.CPOlNT 7, INBFF] 
MOVEM T.POUTBF 
MOVEM T.PINBFF 
CLEARM INBFF 
POPJ P, 



TEXIN»TIN 
> 



(USE NORMAL INPUT FOR TEXT WHEN IN USER MODE 



EDDT V022 -EXEC MODE DDT MACRO. V36 19:06 4-JUN-69 PAGE 5(»-l 
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2196 
2197 
2198 
2199 

|200 OPDEF TTCALL C51B8] 

2202 TEXIN: 

2203 tin: 
22SI4 



2207 
2208 



IFE EDDTS4,< (ASSEMBLE WITH TTCALL TELETYPE 10 



nil ""E: EODT«10,< TTCALL 0,T )GET NEXT CHARACTER INTO T > 

2206 IFN EDDT«10,< pUSHJ P.INCHR > 



CAIE T.175 



ICHANGE OLD ALT MOOES TO NEW 
(TYPE XXX FOR A RUBOUT 



2209 CAIN T,176 

2210 MOVEI T,33 
^211 CAIN T.177 

2212 jRST WRONG 

2213 POPj p, 
2214 

2215 TOUTI 
2216 

liy^ """^ EDDT«10,< SKIPE COMAND (IS THERE A COMMAND FILE? 

Iljl JRST PUTCHR (YES > 

lll^ TTCALL l.T (OUTPUT A CHARACTER 

2222 

nil LISTEN: TTCALL 2,T (GET NEXT CHAR, NO 10 WAIT 

55,= POPJ P' INO CHARACTER EXISTED, RETURN 

2226 •^^^ CPOPJl (CHARACTER WAS THERE, SKIP RETURN 

nil TTYRET: TTCALL 6, , WHEN RETURNING TO DDT, FLUSH ALL 

2229 ''°'''^ ''' IWAITING INPUT CHARACTERS 

IIjJ TTYLEV==CPnPJ (NOTHING SPECIAL TO DO WHEN LEAVING DDT 

2232 > (EiMo OF IFN EDDTS4 
2233 

2234 IFN EPDT«10,< 

2235 INCHR: SKIPE COMAND 

2236 JRST GETCHR 
2237 

2238 IFN E00TS4,< ILDB T.PINSFF (NO COMMAND FILE > 

nil ""E EDDT44,< TTCALL 0,T (0/P CHAR. > 

2241 POPJ p, 
2242 

22^3 GETCHR: SOSLE CauF+2 (AMY REMAINING? 

2244 JRST GETOK (YES. 

2245 INPUT CM, 

2246 STAT? CM, 740000 

2247 HALT .*1 

2248 STAT? CM, 20000 ( ENO-OF-F I LE? 



EDOT V022 -EXEC MODE DDT MACRO. V36 19:06: •l-JUN-bg PAGE 5C-2 
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2249 JRST GETEND 

2250 

2251 GETOKI ILDB T,CBUF+1 

2252 JUMpE T.GETCHR IBYPASS 2ER0 CHARACTERS 

2253 PUSHJ P.PUTCHR ICOPY INPUT TO OUTPUT FILE 

2254 POPJ P, 
2255 

2256 GETENDl CLOSE DP, ICLOSE OUTPUT WHEN INPUT EXHAUSTED 

2257 RELEASE DPi 

2258 RELEASE CMi 

2259 JRST NOLPT JREVERT TO TTY l.iHEN COMMANDS EXHAUSTED 
2260 

2261 PUTCHRi SOSLE LBUF*2 , lANY ROOM? 

Z262 JRST PUTOK lYES 

2263 OUTPUT DP. 

2264 STAT? DP, 740(300 IERR0RS7 

2265 HALT ,+1 lYES 
2266 

2267 PUTOK! 

2268 IDPB T,LBUF+1 (DEPOSIT CHAR, 

2269 POPJ P, 
2270 

2271 > lEND OF IFN EDDTS10 

2272 > lEND OF IFE EDDTSl 
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2273 002506 301402 002511' BDISP! POINT 12,DISP(R),H 

2274 002507 141402 002511' POINT 12 , D I SP (R ) • 23 

2275 002510 001402 002511' POINT 12 , D I SP ( R ) . 35 

2276 002511 DISP! 

2277 DEFINE D (Zl,22.23)< <Zl-DDT>^30*<H2-O[JT>-14tH3-OOT> 

2278 ITHIS MACRO PACKS 3 ADDRESSES INTO ONE WOHO; EACH ADR IS 12 BITS 
2279 

2280 000151' IFE EDDT81S<E00T>B36,< PUNCH=aERR 

2281 000151' RLKEND==ERR 

2282 000151' LOADER==ERR> 
2283 

2284 002511 0151P1 510151 D ERR.ERR.ERRt <ERR-DDT><-30+<ERR-ODT>^14*ERR-DOT t 

2285 002512 0151P1 510151 D ERRiERR.ERR* <ERR-DDT>-30+<ERR-DDT>-14*ERR-ODT t 

2286 002513 015101 510731 D ERR . ERR i VARRWf <E:RR-ODT>«-30*<ERR-DOT>-14*VARRW-DOT t 

2287 002514 075707 060151 D TAB . L I NEF , ERRf <TAe-DDT><-30*<L I NEF-DDT>^14+ERH-0DT t 

2288 002515 015107 350151 D ERR i CARR , ERR* <ERR-DDT>-30+<CARR-DGT>-l4+ERR-DnT t 

2289 002516 015101 510151 D ERR.ERR.ERRt <ERR-OnT>«-30+<ERR-DDT>-14*ERR-DDT t 

2290 002517 015101 510151 D PUNCH , ERR , ERR f <PUNCH-DDT>''30 + <EF!R-DDT>^14 + FRR-nDT t 

2291 002520 015101 510151 D ERR.ERR.ERRt <ERR-DDT>-30+<ERR-DDT>*14+ERR-DDT t 

2292 002521 015101 510151 D ERR.ERR.ERRt <:ERR-DDT>*30 + <ERR-DDT>'-14 + ERR-DDT t 

2293 002522 040201 510151 D CONTROL . ERR , ERR t <CONTROL-DnT>*-30 + <ERR-DDT>*-14 + ERR-DDT t 

2294 002523 015101 510660 D ERR . ERR . SPACE t <ERR-DDT>'-30*<ERR--OOT>«-14 + SPACE-OOT t 

2295 002524 0742CI4 330622 D SUPTYO, TEX I , ASSEM t <SUPTYO-DDT>*30*<TEX I -DDT>-14 + ASSEM-DDT t 

2296 002525 025002 510151 D DOLLAR, PERC.ERRt <DOLL AR-DDT>*30+<PERC-DDT>-14+ERR-DDT t 

2297 002526 062006 260664 D D I VO , LPRN , RPRNt <D I Vn-ODT>*30*<LPRN-DDT>^14*RPRN-DDT t 

2298 002527 061706 240642 D MULT , PLUS . ACCF t <MULT-DDT>-30*<PLUS-ODT>-14+ ACCF-DDT t 

2299 002530 062303 500743 D M I NUS . PER I OD . SLASRt <M INUS-DnT>'-30 + <PER 1 0D-D0T><-14 + SLASH-0DT t 

2300 002531 023402 340234 D NUM.NUM.NUMt <NUM-DDT>'-30*<NUM-DDT>«-14 + NUM-DDT t 

2301 002532 023402 340234 D NUM.NUM.NUMt <NUM-OOT>*30*<NUM-DOT><-14+NUM-DDT f 

2302 002533 023402 340234 D NUM.NUM.NUMt <NUM-DDT>«-30 + <NUM-DDT>«-14 + NUM-DDT t 

2303 002534 023405 301063 D NUM . TAG . SEM I C t <NUM-DOT>'-30*<TAG-DDT>-14+SEMI C-DQT t 

2304 002535 146010 051463 D F I RARG , EQUAL . UL IM t <F I RARG-DDT>-30+<EOUAL-DnT>-14+UL I M-DDT t 

2305 002536 021606 361047 D OUESTN , IND I RECT . ABSA t <QUESTN-DDT>»30 + < I NO I RECT-DDT>^14 + ABSA-DnT t 

2306 002537 136410 412122 D BPS . CON , SYMD t <bPS-DDT>*30+<CON-DDT>-14kSYMD-DDT t 

2307 002540 1702J0 371065 D EFFEC.SFLOT.GOt <EFFEC-DDT>-30+<SFLOT-ODT>-14+GO-DDT t 

2308 002541 103603 730151 D HWROS , P I LOC , BLKENQ t <HWRDS-DDT>«-30+<P IL0C-D0T>^14+BLKEND-DDT t 

2309 002542 050201 511672 K I LL . LOADER , MASK t <K I LL-DOT>'-30*<LOADER-ODT>t-14 + MASK-DDT t 

2310 002543 170525 511222 NWORD. BI TO. PROCEDE t <NWORD-DDT>-30+<B I T0-DDT>^14+PH0CEDE-DDT t 

2311 002544 037510 441040 D QUAN , RELA , SYMBOL t <QUAN-DDT>-30*<RELA-ODT>-14+SYMBOL-DDT t 

2312 002545 1030P1 510151 D TEXO , ERR , ERR t <TEXfi-DDT>-30 + <ERR-DDT>^14*ERR-DDT t 

2313 002546 1704J0 660151 D WORD , XEC , ERR * <WORn-DDT>-30 + <XEC-DDT>Hl4 + ERR-DDTt 

2314 002547 201107 370753 D ZERO , OCON , I CON f <ZERO-ODT>-31^*<0C0N-DDT>^14+ 1 CON-DDT t 

2315 002550 074007 311006 D OSYM , VaRRW , PSYm t <OSYM-DDT><-30*<VaRRW-ODT>-14 + PSYM-DDT t 
2316 

2317 ;THIS TABLE DOES NOT HAVE ENTRIES FOR CHARS .GE, 140! THESE 

2318 I ARE DETECTED AS ERRORS NEAR L2l! 



EDDT 
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2319 
? 3 ••' 3 
?3?1 
2322 
23?3 
2371 
232S 
2326 
2327 
2328 
2329 
23-!K 
2331 

?3:<2 

23 33 
2334 
2335 
23 36 
2337 
2 3 3 8 
2339 
23 4 
2341 
2342 
2343 
2344 
2345 
2346 
2347 
23 4 B 
2349 
2350 
?3'^1 
23'52 
2353 
2354 
2355 
2356 
2357 
2350 
23 = 9 
236H 
2361 



f 



!'0 
7li 
77l 

7% 

7% 
f0 



2551 
25 = 2 
2553 
2554 
2b55 
2556 
25'^7 
2560 
2561 
2562 
2563 
2564 
256S 



702566 
702567 
('02570 
:'0257l 
;?02572 
?02573 
^"02574 
;"02575 
."02576 
i102577 
?i026f*0 
'7026l'l 
?i026f2 
t"026r3 
P'026f"4 
[;026!"5 
f 026176 
2026(77 
102610 
(702611 

002612 
002613 



201170 

551440 
6260^0 
254g;-0 
200240 
202240 
2 1 2 4 e 
230240 
332P'0 
2 7124 
202240 
55t"4?0 
2540T0 

200240 
202240 
2003/^0 
2a23"0 
26104F, 
201240 
200340 
246247 
202240 
2023.''0 
302442 
260040 
302440 
2 6 0040 
3770^0 
2540^0 
201240 
260040 
2003:^0 
2640.00 



002566' 

002^45> 

!"0^0-'l 

00'/151i 

002250' 

002614 • 

000044 

f»02250' 

00:^086 

000001 

002615' 

00'^i;02 

001056' 

002615' 
002617' 
002254 • 
002616' 
002254 ' 
000k: :'0 
002614 ' 

000000 

002254' 

002616' 

001622' 

002057' 

002045' 

001537' 

00261 7' 

002612' 

000054 

002440' 

002616 ' 

002573' 



BI TT : 



RITT2: 



262040 002254' qiTT4! 
263040 007'000 



-OVEI 


P,9ITT i 


WRO^I 


4M,-TC 


Tl<?\ 


r,Q2F 


JHST 


Ffii? 


"Ovf: 


T, WRn2 


K-OVL^' 


T.SvPT:; 


"OVE I 


T. '036 


ID IV 


T. l^'Rn2 


SKIPi^ 


T + l 


ADHI 


T,l 


MOVE^ 


T,SvaTS2 


MRR^ 


SCH.R 


jRSr 


^ASEl 


MOVE 


T.SVPTS2 


"OVE'' 


T 1 S V P T 2 


"OVL 


T+1,LWT 


^■CVE- 


T+l,SVr3T3 


DuSM P 


.L^-JT 


"OVEI 


T,0 


WOVE 


T*2,SVTTS 


LSHC 


T,(Tt2) 


"OVf« 


T.LWT 


VQVE" 


T*l, SVnT3 


':aie 


sRiPAuSO 


PbShJ 


P.TOC-A 


CAIE 


AR.TOC 


PUShJ 


r . P I \| 


sust; 


SVPT2 


JHST BITT4 


^'0"E! 


T , " , " 


puSkj 


P.TOi.iT 


'•lUVE 


T+1.SVPT3 


JRST 


P I T T 2 


PQC P.LWT 


POPj P. 





BVTr OUTPUT SUBROUTINE 



002614 000070 005!0:^0 SVPTp; 

002615 0000.'B 000000 SVPTS2: 

002616 0000:^0 0000f"e SVBT3: 

002617 0000.^e 0000"i0 SVPT2: 



EDDT 
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?3?S2 
?r63 
2,5'.') 
23^.5 
2366 
23^7 
2368 
2369 
2370 
2371 
2372 
2373 
2374 
2375 
2376 
2377 
2378 
2379 
23^0 

23?1 
2332 
23-'3 
23''4 
23^5 
2336 
23f-7 
23«8 
2 3f>9 
23''e 
'331 
2 3^2 
23^3 

23'>5 
2336 
2 3 9 7 
23 '8 
2339 



UESCKIPTinr^ OF 01' DECODEM FnR onT! 

THE ENTIRE I'JSTRUCTION SET FOR THE PDP-6 CAN bE COMPACTET INTO 
A SPACE MUCH SMALLER THAM OIE REGISTER FOR EVERY SYMBOL. THIS DCCuRS 
BECAUSE OF THE t^ACHINE ORGA^I^ATInN ANp INSTRUCTION MNEMONICS :hOSE^ 
FOR THE Pnp-6. FOR EXAMPLE, IF BITS (0-2) OF AN INSTPUCTION EaUAL 
lfl(2) THE INSTRUCTION IS A HALF WORD INSTRUCTION AND AN "H" MiY 
BE ASSUMED, "T" MAY BE ASSUi-'EO FQR ALL TEST INSTRUCTIONS (WHICH 
BEGIN WITH 11(1(2) , 

THE TABLE TBL IN DOT CONSISTS OF 9 BIT BYTES, 4 TO A wni^n, 
THE NUMBERS IN THE =1YTES HA"E THE FOLLOWING SIGNIFICANCE: 
k)-37(6); THIS IS A DISPATCH COMMAND FOR THE OP-OECOOER 1MTERPRETE« 

LET THE RIGHT MOST TwO SITS EQUAL N; LET THE NEXT 3 RIT3 

FQUAL P. 

THE CONTFNTS OF INST (INSTRUCTION) C(iNTAIN IN THE RIGHT 
MOST NINE BITS THE BINARY FOR THE MACHINE INSTRUCTION, 

P AN" N REFER TO THE CONTENTS OF INST, AND THE OP DECODER 
WILL PRODUCE AN ANSWER GIVEN P, N, AND THE CONTENTS 
OF INSTX N*l GIVES THE NUM«ER OF BITS IN INST; P GIVES THE 
POSITION (FROM THE RIGHT EDGE) OF THE N*l BITS, 

EXAMPLE: P : 6 
N s 2 

; cdNSTl = ,210 101 1?'0(2) 

THE OESULT = D = ai3(2) = 2(8) 

D IS USED AS A DISPATCH GN THE NEXT BYTES IN THE TABLE. 
IF D = 5, 5 BYTES IN THE TABLE (DDNtT COUNT THE BYTES WHlC-i 
PRINT TEXT, 41-72(8)) ARE SKIPPED OVER AND THE 6TH BYTE RESu^'LS 
THE INTERPRETATION. 



4 !? ( 8 ) 



THIS IS A STOP C^OE; WHEN THIS IS REACHED INTERPRETATION 
IS FINISHED. 



EDDT 
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241 '. 
2i,n2 
?4'3 
? 4 '" 4 
? 4 !- 5 
?4f 6 
2 4'S7 
?4"i8 
?4'9 
?4ie 
24tl 
?412 
2413 
2414 
2415 
2416 
2417 
2 41,6 
241 9 
2420 
2421 
2422 
2 4 ? 3 
24?4 
2425 
2426 
2427 
24?8 
2429 

24:iK 

2411 
24J2 
24?<3 
2 4,i4 
2 4 i5 
2 4 36 
24-^7 
,2418 
2439 
2412 
2441 
2442 
2443 

2444 
2415 
2446 
2447 
24ae 
2449 



41<8)-72(8) THE ALPHABET I =; ENCOnEn I^JTO THIS RA'.'GF. 

41- 4 

42- B 
72- I 

: WHEN A BVTE W THIS RANGE IS REACHED. ITS CORRESPO^JO tNG 
■ LETTER IS TY = Er), 
f 

;73(8)-777(8) THIS IS A TRA.MSFER BYTE, IF THE BYTE IN THIS RANG^ IS 
! rOMSIOERED T-^ PE A, TRANSFER INTERPRETATION TO THE a273(c)RD 

. "YTE I\! THE TABLE. 

MACROS ASSEMBLE THE TABLE T^L! 

1. A NUMi^ER; FOLLOWED BY t ASSE'IBLES A DISPATCH BYTE. Thf r|R5T I 
DIGIT IS THE POSITIONI THE SECOND DIGIT IS THE S1?E. 

2. A POU'T (.) ASSEMBLES A STQP CODE. 

3. A NAME FOLLOWED BY A SL*SM ASSEMBLES A TRANSFER TO THE 
SYMPOI.ICALLV NA«EO PYTE. 

4. A STRING OF LETTERS TERMINATED BY A SPACE. COMMA, OR POINT, 
ASSEMBLE INTO A STRINf; OF BVTES, EACH BYTE BEING ONE LETTER, 

EXAMPLE OF 5INARY TO SYMBOLIC QEcnoiNG: 
The machine CODE FOR JRST IS 254 

I^'ST K 1 a 1 i) 1 1 5) g 

THE IMTERPRETER STARTS WITH THE FIRST BYTE IN THE TABLE (63t).' 
The RESULT OF APPLYINO THIS TO C(INST) GIVES 2. SKIPPING OVEr' 
2 BYTES In the table AND INTERPRETING THE THIRD RESULTS IN 
HAK/ BEING INTERPRETEP, AT HAk:, THERE IS A 33t, APPLYING 
THIS TO CtlNST) RESULTS IN 5 NON PRINTING BYTES BEING SKIPPED ' 
OWEP! 

1. My/ 

MOV PRIN'TING TEXT 

2. HO/ 

3. Ml/ 
4 , UV/ 
5. Sh/ 

HI/ IS THE K'EXT BVTE INTERPRETER. AT HI! £3t IS FOUND SO 
4 BYTES APE SKIPPED OVER! 

EXC PRINTING TEXT 
1. S3/ 

SL PRINTING TEXT 
T; PRINTING TEXT 
2, 

3. An/ 

4, AOB/ 

THE NEXT LETTERS JRS ARE TYPED OUT, THEN T/ IS found. AT ^ 
IT; A T IS TYPED; OUT! THEN A "," I? FOUnO ANO EVERYTHING STOPS. 

THE Table is also used going from sympolic to binary put a' 

TREE SEARCH method IS USED. 
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?4'^^ 
2451 
P4C2 
?4'^3 
?4'"<1 
?4'=5 
?4'^6 
?4?7 

?458 
?4'~9 
246^ 
?4',1 
24<^2 
2463 
?4«4 
24(15 
24(16 
24?.7 
24A8 
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BEPE4T e),< 

DEFINE RFD^F (XXK 
DEFINE IVFP (A4.SBX. 
AA X)(iRH>> 



OEFI^:t BYT? (L)< 
XL 1ST 
REDEF % 



iRPr L>< 

IFF '- 



:".<IMFO <:>,< = = CLrc> 
IFNUFF FIR, ,<FIR,= = CUOC> 
IFGE CL0rt73-lt"KS"-FIR, ,<PRIMX DPTABl.E TDO LONG> 



24'-9 
2470 
2471 
24-72 
2473 
2 4 74 
2475 
2476 
2477 
2478 
2479 
2 4S,1 
24^1 
24 = 2 
2483 
7404 
24=>5 
24=i6 
7 4 f, 7 
24^8 
2 4 "9 

7 4 93 

■34 .)1 

7492 
74Q3 
2494 
2495 
2 4 96 
2407 
2498 
2499 
2570 
25P1 
25?2 



? = = 2> 
jrr ^-"/",<IFl <"UTP 1> 

IF2,<1-1FD 0UTP,+73-FIR,> 
? = = ^> 
IFE !?-"'". <-^UTP <??S7 'i/2t?Z<7-l> 

i- = .'> 
IFE <?-",">»<?-". "><t<2-4Z>,<IFN; £?E,< 

= EPEAT 3,<7.i = = 7'il&77 

IFN ?E,<OUTP ^2> 

IFE 2-",",<0l)TP 40> 

IFN i,<\t,fO RFDrF.L 

IFE !^.<PEDEF •'. 
?i = = T 

LI''T> 

ntFIvt O'lTP ( A > < 

pli'RV;=^It.ji:y,,4"i:*B!\'"'Yo4'»0*A 

-r.c = :=ivc-i 

IFF 3I\C,<EXP Mf-RY 
aiNRV==^ 



THL! 



PINRY = = i! 
CLOC = =f» 



;OPDECTDFR BYTE TaRLF 

iSET ByTF LODATinN COUMTFR TO 
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?5if 

25fiB 
25S»9 
2510 
2511 
2512 
2513 
2514 
2515 
2516 
2517 
2518 
2519 
252P! 
2521 
2522 
2523 
2524 
2525 
2525 
2527 
2528 
2529 
2530 
2531 
2532 
2533 
2534 
2535 
2536 
2537 
25 3 8 
2539 
2543 
2541 
2542 
2543 
2544 
2545 
2546 
2547 
2548 
2549 
2550 
2551 
2552 
2553 
2554 
2555 



V022 -EXEC MODE DDT 
2 JUN 69 



>^ACR0.V36 19!06 4-ju(g-69 Pace 55-1 

BINC==4 JINIT nyTES/WORO COUMTER 

RYT9 <.63tUU0/FL0/HAK/4nCP/B0nLF/H HWT/T AC9M/> 

JIO INiSTRUCTlO*JS 

BYT9 <21tBD/CON,lltoi/S,!'lt2/0/> 

BYT9 <BD:UltnLK. lO/DATA.IOtll'I/O/OI !01tO/!/> 

;UUOS 

RYT9 <UUn:5lf.,32tU40/u5("/Ll6«'/21tu703/lltuSET/?lt> 

BYT9 <LOOKU,P/EMEiR/USETiUSfT,aitl/0/> 

BYT9 <U4i^!C.3tCAL/INI T/ ,CALL l/> 

BYT9 <U6i'!2lfU603/01tI\j,BPUT/OUT,SPUT:llfBU,nF,,PU,T/> 

ByT9 <U5f«3!21tU6052/STAT,lltn:O.,212,.U6 362;HfS,U62/(;,U62:ETST,S>> 

JBYTE AND F-LOATI\iG INSTRUCTIONS 



,33tUF,PA/nF,N/> 



PYT9 <FL0:5ltByTF/F 32' AD A/SB A/Mp A/QV A;> 

BYT9 <21tLMg/R. lMB/LMBl02f.,L!L. iM!M.,8;R.,BYTF:32', . , 

BYT9 <FS C/IR P!P,il LD/LDiLO R/I DP/aP:DP H/> 

iFwT.FIXFD P?INT ARITH.MISC, 

BYT9 <HAK:33»MV/MV IMOV H^/ML/DV/FH/Hl/JP/) 

BYT9 <21tADD IM8/SU BiMBiB I ►'B 1 02 t , , I ! I . , M/B/MO :22 '> 

BYT9 <FHS:E IMS/S \"Z/\ IMS/M 1 «S ! 02 1 , , I /M/S I S . ■ > 

BYT9 <MLl21fI "Ll/MLISMUL IM:>/Dvi21tI 0V1/DVJ!> 

eYT9 <ni aV2!V lMB/Hli03'EXC 33/aL TiT, ,AO''APIAOBJ,> 

I3YT9 <AOB/JRS T/JFC L^XC T/ . 40B ! ?1 »P/N/> 

BYT9 <jP:03f Du/PUiPUSH PUS/Pn/PO I POP POP/ JS , R ! R . , > 

BYT9 <JS P/JS PA!A,,JR P A/Pu": I I»l t J ! J , , , POP : > 

BYT9 <01. . , j/Sw:fi2»A S2/RQT <;i/l s2!S S3!H Sl/JFF 0/Sl : 21 t . , C ! C . 

lARITH COMP, SKIP, JUMP 

BYT9 <ACCP:42tCA CAl/Sj/A JS/S JSsO 31»> 
BYT9 <J rOMP/S C0MP/CAli31t I COMP/M COMP/> 
RYT9 <SJ!31tJUM PSJ/SKI rSJ:P COMP!> 
BYT9 <03t.,L/E!E, ,L E/PA/G E/N:N.,r,.,> 

■•HALF WORDS 

RYT9 <HWT!5lfHWl/21fR HW2/L HW2l« HW3/HW1!> 

BYT9 <21tL HW4/R hw4:L HW3:32tIMS/? IMS/0 lMS/EIHS/> 

(TEST INSTRUCTIONS 

BYT9 <ACRM!31tACl/01'D AC2/S AC2/ACl!01tR AC2/L.> 
RyT9 <AC2!42tN EAN/Z EAN/C EAN/0 £ AN ! 1 2 t . . E/PA/N/> 



iBOOLEAN 



CDDT 



?556 

3557 
?556 
3559 
2560 
2561 
2562 
2563 
2564 
2565 
3566 
2567 
2568 



V022 -EXEC MODE DDT 
2 JU*^ 69 



MACRO. V36 19106 4-JUN-69 PARE 55-2 



BYT9 <B00LFi24tST/ANiA^JD B2/ iiN/ST/AN/5T/> 

nYT9 <X OR:OP B2/I OR/AN/EQ nv2/ST/0R/ST/DR/aR/> 

BYT9 <ST;SET B2:74t2 I MB/ I MB/CA : C TA/TH!M lMB/> 

gYT9 <CM!C Tw/Ta!A Ii^B/IMB/P'S/CfiC 8MB/IHS/CA/> 

BYT9 <CA/CM/CM/C3/0 IMB/> 

iMORr UUO'S 

BYT9 <U53:!'3'0PE.N/TT.CAL!CAL L/ , , . . RENA^ . E/ I , N/OU. T/> 

BYT9 <U703:!2?'CLOS.E/RELEA.S/MTAP,E/UGET.F/> 

REPEAT BlNlC,<BINRY = = ElNRY»4a3*RlNRY«41()0> 

IF\i BIMHY,<EXP BINRY> 

> iEND OF REPEAT Z 



)nT 


V022 -EXEC MODE UOT 
2 JUK' 69 


MACRO.l 


/36 19!I<I6 


4-JUN-6 


25f.9 




IFM EODT«lf!,< 




75-1'- 




CR4SHI 


SIXBIT 


.CRASH, 


2571 






FIXBIT 


.SAV, 


2572 






? 




?573 






? 




2574 




COMNDSl 


1 SIXBIT 


.FILOOT, 


2575 






SIXBIT 


.TXT. 


2576 






? 




2577 






? 




2578 




SNAP! 


SIXBIT , 


.SNAP. 


2579 






SIXBIT , 


,LST. 


?5'^0 






? 




2581 






? 




2582 




CbUF; 


RLOCK 3 




25.03 




LBUF! 


BLOCK 3 




2584 




COMAND! 


2 




25 85 




CRAShSi 


? 




25S6 




ACI2=, 






2537 




AC17= ,■( 


■17 




25-18 




RSIONTi 


BLOCK 1000 


2589 




CURENT! 


BLOCK 4Z00 


2592 




RSAVE! 


BLOCK 1 




2591 




RSILST: 


lOWD laaf.RSIOIMT 


2592 






? 




2593 




CURLST; 


lOWD 40B0, CURENT 


2594 






? 




2595 




> 







;filddt stuff 

[canonical name for crasm 



ICANONICAL NAME FOR COMMAND LIST 



(NAME FOR OUTPLIT IF TO RETRIEVABLE DE\/ICF 



IRING HEADERS 

1-1 IF COMMAND FILE ,12 IF NOT 

1-1 IF CRASH, SAV ON DISK ,7i IF PEEK AT M'^NITOR 



ILOCS 0-777 ALWAYS IN CORE 

IWINDOW TO THE FILE ON DISK 

II^!DEX OF THE CURRENT BLOCK, 0,1,... 



EDCT V022 -EXET MODE DOT 
? JU^ 69 



MACRO. V3ft 19!iZ6 4-JIJN-69 PATE 57 



?596 
?597 
?598 
J599 

Zo?lr! 
26'1 
26:»2 

25!'5 
26?6 
26"? 
26^8 
26?9 
261.0 
2611 
2612 
2613 
2614 



SUBTTL OP orCODER 



DEFIME RYT9 (A) <IRP A,< 
A>> 



I F 1 , < 



DEFINE 
•/. ' A = = 
Flt).= = 

DEFINE 
»; ' A = = 
IFHE 



SYN 



(A) < 



.APR 
riDC 
HLOC 
.AOH 

cinc 

<LASTB = = CLOC*73-FIR.>-la'"2). <PRIN'T)( DPTARLE TOO LONG>>> 



( Al < 



DEFINE ,TRa < 
CLOC== TLOC*! I> 



■ DIS 



2615 
2616 
2617 
2618 
2619 
2620 
2621 
2622 
2623 
2624 
2625 
2626 
2627 
2628 
2629 
2630 
2631 
2632 
2633 
2634 
2635 
2636 
2637 
2638 
2639 
2640 
2641 
2642 
2643 
2644 
2645 
2646 
2647 
2648 



DEFINE .TXT (A) < 

IFNH <A>, <lRPr 4,<CL0'' = = CL0C + 1>>> 

( A ) < 

<IRPC A,<CLDr = = CLOC; + l>> 



DEFINE .END 
IFNH <A>. 

cLnc== rLOc*i> 



> 

IF2.< 



DUTP 



SEND OF IFI 



DEFINE .ADR (AXIFN 11 ' A-CLOC . <PR I !^TX PHASE ERR AT: "/4'A>> 



DEFINE .TRA 



(A) < 



V.' A + 73-FIR.> 



DEFINE 
OUTP 


.CIS (A) < 
As72/2+A?7-i> 




DEFINE 

IFMB 


,TXT 
<A>, 


(A) < 

<IRPC A,<GUTB 


"A"-40>>> 


DEFINE 

IFNB 

OUTP 


.END 
<A>, 

4e> 


(A) < 

<IRPC A,<OUT° 


"A"-40>> 



DEFINE OUTP (AX 

RINRY = = riINRY + <A><-<BINC = =8Ii1|r-9> 

IFE RINC, < 

+81NRY 
BINHY==0 
eiNC==»D36 > 
CL0C==CL0C+1 > 



EDPT 



V022 -EXEC MODE DOT MACHO. V3f) 19106 <t-JLlN-69 PACE 5fl 
OP OFCOOER 



?649 
2650 
2651 
2652 
2653 
2651 
2655 
2656 
2657 
2658 
2659 
2660 
2661 
2662 
2663 
2664 
2666 
2666 
2667 
2668 
2669 
2670 
2671 
2672 
2673 
2674 
2675 
2675 
2677 
2678 
2679 
2680 
2681 
2682 
2683 
2684 
2685 
2685 
2687 
2688 
2589 
2690 
2591 
2592 
2693 
2694 
2695 
2696 
2697 
2698 
2699 
27C0 
2701 



002620 



TBL! 



lOPDECCDER BVTE TAi?LE 



000000 B1NRY = = f. 

0000fl(Z CLOC = = i?ET BYTE LOCATION rOUNTER TO 

080044 R1NC== tn36 IIMIT RYTES/WORQ COU"TrR 

i<nnn.»(t»a»»THE ARGUMENT FOR THE FOLLOWIIMt; "eYT9" MACRO 
!«ii»»»»im«e»»e»TrHMlNATES AT THE NEXT COMMENT WITH: inii>««e»»»»»«»» 

RYT9 < 

.DIS 63,,TPA UUO,.TRA FLP..TRA HAK,,TRA ACCP,,TRA BOflLF 
,TXT H,.TRA HWT,,TXT T,.TRA ACBM 

ilO INSTRUCTIONS 

• DIS 21,,TRA BO. .TXT CTNLnis ll.,TRA OI,,TXT S,.DIS 01,.TRA ?,,TRA 

,ADR Bn..DIS 01. .TXT 8LK,,Tr« 10. .TXT DATA. .ADR 10. .DIS ll.,TRA K.TRA i) 

.AOR 01. ,0IS 01, ,TRA 0, .Tfii I 
iUUOS 

.AOR UUO..DIS 51, , END. , TXT. , "IS 32,,TR4 U40,,TRA U50,.TRA H60 

,DIS 21,,TRA U703,,DTS 11..TRA USET,.OIS 01 
.TXT LOOKU.,TRA P,,TXT ENTE,.TRA R,.ADR USET,,TXT USET,,niS 01,,TRA 1,.TrA 
.ADR U40,.DIS 03,,TRA CAL..TVT INI,.TRA T , , END , , ENn , . END , . END. . ENO . . TXT ; rALL . , TRA I 
.ADR U60,.DIS 21,,TRA U603,,niS 11, .TXT IN,.TRA PPUT,.TXT OUT 

,ADR BPUT.,0IS 11, .TXT 8U,,ADR F,,END F, .TXT, .TXT PU,.TRA T 
,ADR U603..OIS 01,,TRA U6062,,TXT STAT, .DIS 11, .AOR C.END 0. .TXT,, ADR I,, END ?,,TXT 

.AHR U5062.,DIS 11,, TXT S,.TRA U62,,TXT C.ADR U62,,TXT ETST,,Tfti S 

iBYTE AND FlOATImG INSTRUCTIINS 

.ADR FLCmS 51,.TR4 BYTE, .TXT F,.D1S 32, .TXT,, TXT AD..TRA A, .TXT SB 

.TRA A, .TXT MP,,TRA A, .TXT DVi.AOR A 
.DIS 21,, TRA LMB,.TXT R,.TRA 1MB, .ADR LMB,.OIS 02, .END. .TXT 

.ADR L..END L, .TXT, .ADR M,,E^D M,,TXT 
.AOR B,.FNn R,.TxT,.ADR BYTE, ,01'! 32, , END , .E«D. , END , , TXT 

.DIS 03, .TXT UF,.TRA PA, .TXT DF,.TRa N 
.TXT KS.,TRA C.TXT IB, .AOR P..E^!U P,, TXT, .TXT I,, TRA LD 

,AOR LO,.TXT LD,.TRA B,.TXT I, .TRA DP, .ADR OP,, TXT DP, .TRA B 

!FWT-F|XfD P^INT ARlTH-MISC 

,ADR HAK,.niS 33, .TRA MV,,AD=' ^'V,.TXT MOV,,TRA MO, .TRA ML. .TRA OV 

.TRA SH, ,TRA HI, ,TRA JP 
.DIS 21, .TXT ADD,, TRA IMR,,TVT SU,.AOR BIMB,.TXT B,.ADR 1MB, .DIS 02,.ENO,,TXT 

.ADR I, .END I, .TXT, .TRA M,,TRA B,.AOR MO, .DIS 22 
.AOR EIMS,,TXT E,.TRA IMS., TXT S,.TRA IMS,, TXT N,.TRA IMS, .TXT M 

,ADR IMS, .DIS 02, .EN". , TXT. .TRA I, .TRA M,.AOR S,.END S.,TXT 
.ADR ML. .DIS 21. .TXT I, .TRA »«L1,,ADR ML1,,TXT MUL,.TRA IMB 

.ADR OV,.DIS 21,, TXT I, .TRA DVl 
,ADR DVl, .TXT DI.,AO» nV2,,TVT V,.TRA IMP,, ADR HI,, DIS 03. .TXT EXC , . TRA :=;3 , , TXT BL 



CDOT 



V022 -EXEC MODE OOT MAC:H0.V35 19:e(i 4-J1JN-69 PAr.E Sf-l 
OP DECODER 



? 7 f 2 
?T^i 
?7:M 
?7r5 

27517 
2778 

2710 
2711 
2712 
2713 
2714 
2715 
271 6 
2717 
2718 
2719 
27213 

2721 
2722 
2723 
2724 
2725 
2725 
2727 
272fl 
2729 
2730 
2731 
2732 
2733 
2734 
2735 
2736 
2737 
2738 
2739 
2740 
2741 
2742 
2743 
2744 
2745 
2 74 6 
2747 
2748 
2749 
2750 
2751 
2752 
2753 
2754 



.ADR T,.ENO T,,TXT.,TRA AO,,AD=! AO..TXT AOBJ 
,TRA AOB,,TXT JRS..TRA T,.TXT JFC.TRA Li.TXT XC..TRA T,,E\'D 

■ADR An8,,DlS 01,,TR4 P,,TRA N 
,AOR JP..DIS 03,,TRA PU,,AOR PU,,TXT PUSH..TRA PUS..TRA PO 

.AOR PO,.TXT P0P,.TR4 POP. .TXT JS,.ADR R,,ENO R,,TXT 
,TXT JS,.TRA P,.TXT jS,.ADR P A , , E NO A , , TXT .' , TXT jh,.TRA PA 

.ADR PUS, .CIS ai,,ADB J,,EMD J , . END , . TXT , , ADR POP 
.DIS 01, .£NO,.TXT, .TRA J,,AD» Sh,.01S 02, , tXT ' A , . TRA S2,.TXT ROTi.TRA Si,, TXT L • 

.ADR S2,.TXT S,.ADR S3,.fxT H,,TRA SI,, TXT JFF,,TRA 

.ADR SI, .DIS 21, .END, .TXT, , ADR CEND C.TXT 

iARITH COMP-SKIP-JUMP 

.AOR ACCP,.OIS 42, .TxT CA, .TRA CA1,.TRA SJ,,TXT A,.TRA JS,.TXT S 

.AOR JS, .TXT 0, , DIS 31 
.TXT J, .TRA COMP,,T)(T S,,TRA COMP,.ADR CA1,.D1S 31, .TXT I,, TRA COMP , . TXT M . . TR A COMP 
.ADR Sj,.DIS 31., TXT JUM,,TRA PSJ,,TXT SKI, .ADR PSJ,,TXT P,,ADR COMP 
■ DIS fcl3,.EM0, .TXT..TRA L,.ADR E,.END E,. TXT,.. TXT L,.TRA E,.TRA PA, .TXT G,,TRA E 

.aor n> .end m, .txt, .end c.txt 

;half words 

,adr hwt,.ois 51, .tra nw1,,d1s 21, .txt r,,tra hw2,.txt l,.adr hw2,.txt r,,tra hw3 

.ADR HWL.niS 21,, TXT L..TRA HW4,,TXT R,,A0R HW4,,TXT L 

.ADR HW3,.DIS 32, .TRA lMS,,Tyt 2,, TRA IMS, .TXT D,,TRA IMS,, TRA ElMS 

MEST INSTRUCTIONS 

,ADR ACBM,.DIS 31,, TRA AC! , . DI S fil , .TXT D..TRA AC2,.TXT S,.TRA A:2 

.ADR AC1,.DIS 01, , TXT R, .TRA AC2,.TXT U 
.AOR AC2,.DIS 42,, TXT N,,TRA EAN,.TXT H,,TRA EAN,,TXT C.TRA EAN,,TXT 

.ADR EAN,.DIS 12, .END, .TXTi .TRA E. ,TRA PA, .TRA N 

JtiOOLEAN 

.ADR eoOL:E..niS 24, .TRA ST, .ADR AN. .TXT AND, .TRA B2,.TRA AN, .TRA ST , , TRA AN , . TRA ST 
.TXT X, .ADP OR, .TXT OR, .TRA B2,.TXT I,, TRA OR,, TRA AN, .TXT EQ 

.TRA DV2,,TRA ST,, TRA OR , . TRA ST , , TR A OR,, TRA OR 
.AOR ST, .TXT SET, .ADR 92., DIS 24, .TXT 2, .TRA 1MB, .TRA IMR 

.ADR CAi.TXT C.TRA TA,.AOR TM,.TXT M,.TRA 1MB 
,ADR CM, .TXT C.TRA TM,,AOR TA,.TXT A,, TRA 1MB, .TRA 1MB, .TRA 1MB 

.ADR CP,.TXT C, .TRA.HIMB. ,TRA 1MB,, TRA CA 
,TRA CA..TRA CM., TRA Cm,.TRa CB,,TXT C.TRA 1MB 

iMORE UUO'S 

.AOR U50.,DIS 03, .TXT OPE,, TRA N,.TXT TT..ADR CAL..TXT CAL..TRA 1. . , END . , FND . , END 

, TXT, .TXT REMAM,.TRA E,.TxT I,, TRA N,,TXT OU.,TRA T 
.ADR U703,.DIS e2,.TXT CLOS,.TRA E.,TXT RELEA..TRA S 

.TXT MTAP,,TRA E,.TXT UGET,.TRA F 

;»»•»»». BO. THIS TERMINATES THE "PYT9" MACRO ARGUMENT»»»*»» 
>MRP 



EDDT 



V022 -EXEC MODE DDT 
OP DECODER 



MACRO, V36 19!a6 4-JUN-69 PAT^E 56-2 



2755 


002620 


032112 


234323 


ZTib 


002621 


532660 


050604 


2757 


002622 


064630 


010073 


2758 


002623 


043057 


056004 


2759 


002624 


1075363 


000221 


2760 


002625 


217000 


042054 


2761 


002626 


053104 


044041 


2762 


002627 


064041 


004350 


2763 


002630 


217000 


217350 


2764 


002631 


024040 


015147 


27b3 


002632 


744167 


010775 


2766 


002633 


004140 


000054 


2767 


002634 


057057 


053065 


2768 


002635 


307045 


056064 


2769 


002636 


045464 


065063 


2770 


002637 


045064 


000350 


2771 


002640 


2170^2 


753051 


2772 


002641 


056051 


417040 


2773 


002642 


040040 


040040 


2774 


002643 


043041 


054054 


2775 


002644 


350010 


210000 


2776 


002645 


051056 


200057 


2777 


002646 


065064 


004042 


2778 


002647 


065046 


040060 


2779 


002650 


065417 


000223 


2780 


002651 


063064 


041064 


27B1 


002652 


004057 


040072 


2782 


002653 


040004 


063227 


2783 


002654 


047045 


064063 


27B4 


002655 


064370 


024267 


2785 


002656 


046015 


041044 


27S)6 


002657 


253063 


042253 


27E7 


002660 


055060 


253044 


2738 


002661 


066010 


257062 


2789 


002662 


346001 


040054 


2790 


002663 


040055 


040042 


2701 


002664 


040015 


040040 


2792 


002665 


040002 


065046 


2793 


002666 


473044 


046600 


2794 


002667 


346063 


530051 


2795 


002670 


142060 


040051 


2796 


("02671 


313054 


044265 


2797 


002672 


051320 


044060 


2798 


002673 


265016 


325055 


2799 


002674 


057066 


354372 


23PI0 


002675 


401507 


410446 


28.'1 


002676 


010041 


044044 


2802 


002677 


346063 


065042 


28P3 


002700 


001040 


051040 


28"'4 


002701 


263265 


011345 


?8';'5 


002702 


364063 


364056 


2SP6 


002703 


364055 


001040 


2B?<7 


002704 


350263 


063040 



+ B 


INPY 


♦ B 


IMRY 


+ 3 


INRY 


+ B 


INRY 


+ B 


INRY 


+ B 


INRY 


+ B 


INRY 


♦ a 


INRY 


♦B 


INRY 


*B 


INRY 


♦8 


INRY 


*B 


INRY 


+ B 


INRY 


♦ e 


INRY 


+ a 


INRY 


+ B 


INRY 


+ B 


NRY 


♦ B 


NRY 


tB 


NRY 


+ B 


NRY 


*B 


NHY 


*B 


NRY 


♦ G 


NRY 


♦ B 


NRY 


+ B 


NRY 


*B 


NRY 


*B 


NRY 


♦ B 


NRY 


*B 


NRY 


+ H 


NRY 


*B 


NRY 


+ B 


NRY 


♦ B 


NRY 


tS 


NRY 


♦ B 


NRY 


+ 81 


NRY 


tBl 


NRY 


+ 81 


NRY 


+ B1 


NRY 


+ BI 


NRY 


♦ BI 


NRY 


+ BI 


NRY 


+ BI 


NRY 


+ HI 


NRY 


+ 81 


NRY 


+ 81 


NRY 


♦ 81 


NRY 


+ BI 


NRY 


+ 81 


NRY 


+ 81 


NRY 


+ 81 


NRY 


+ BI 


NRY 


+ BI 


NRY 



EDPT 



V022 -EXEC MOOE DOT 
OP OECDorR 



MACRO. V3f. 19!(26 4-JUHJ-69 PA'^E 5S-3 



28?8 


PI027P!5 


010051 


375055 


?8(^9 


fi027P6 


065054 


346010 


2810 


C027P7 


0514,''4 


044051 


2811 


302710 


066346 


002045 


2812 


002711 


070043 


520042 


2813 


002712 


054064 


040422 


2814 


C!02713 


041057 


042052 


2815 


C02714 


443052 


062063 


2816 


002715 


417052 


046043 


2817 


002716 


261070 


043417 


2818 


PI02717 


040000 


307600 


2819 


t"02720 


002450 


060065 


2820 


E<027?1 


063050 


500456 


2821 


002722 


060057 


060504 


2822 


002723 


052063 


062040 


2823 


002724 


(>52063 


307052 


2824 


002725 


063041 


040052 


2825 


002726 


062473 


000052 


2826 


002727 


040040 


000040 


2827 


002730 


501001 


041517 


2828 


002731 


062057 


064526 


2329 


002732 


054K63 


050526 


2830 


002733 


?152046 


046217 


2831 


002734 


010040 


043040 


2832 


002735 


021043 


041550 


2833 


002736 


555041 


542063 


2834 


002737 


057014 


052566 


2835 


002740 


063566 


014051 


2836 


002741 


566055 


566014 


2837 


002742 


052065 


055565 


2838 


002743 


063053 


051060 


2839 


002744 


002040 


261045 


2840 


002745 


040054 


571473 


2841 


002746 


047571 


056040 


2842 


002747 


047040 


024614 


2843 


002750 


010062 


612054 


2844 


002751 


062621 


010054 


2845 


002752 


620062 


054015 


2846 


002753 


364072 


364057 


2847 


002754 


364355 


014637 


2848 


002755 


000044 


643063 


2849 


002756 


643000 


062643 


2850 


002757 


054021 


056653 


2851 


002760 


072653 


043653 


2852 


002761 


057005 


040571 


2853 


002762 


473600 


013711 


2854 


002763 


041056 


044714 


2855 


002764 


662711 


662711 


2856 


002765 


070057 


062714 


2857 


002766 


051673 


662045 


2858 


002767 


061406 


711673 


2859 


002770 


711673 


673063 


2860 


002771 


045064 


013072 



■►B 


IKRY 


*B 


N5Y 


+ B 


N;RY 


+ B 


INBY 


*B 


NRY 


♦ B 


NPY 


4B 


NRY 


+ B 


NRY 


+ B 


NRY 


+ B 


NRY 


+ B 


NRY 


+ B 


NRY 


+ B 


INRY 


*a 


INRY 


*B 


NRY 


*B 


NRY 


+ B 


NRY 


+ B 


NRY 


+ B 


NRY 


*\i 


MRY 


*8 


NRY 


*B 


NRY 


+ B 


NRY 


+ H 


NRY 


*B 


NRY 


*b 


NRY 


*B 


NRY 


*B 


NRY 


+ B 


NRY 


+ B 


NRY 


*B 


NRY 


+ B 


NRY 


+ B 


NRY 


*B 


NRY 


*B 


NRY 


*U 


NRY 


*B 


NRY 


*8 


NRY 


*B 


NRY 


*a 


NRY 


*B 


NRY 


*B 


NRY 


♦ B 


NRY 


*B 


NRY 


*B 


NRY 


♦ B 


NRY 


♦ B 


NRY 


♦B 


NRY 


♦ B 


NRY 


+ B 


NRY 


+ B 


NRY 


+ B 


NRY 


*e 


NRY 



EDDT 



V022 -EXEC ^'ODt DDT 
OP OFCOOER 



MACRO, V3f 19!06 4-JliN-6'5 PACE 5B-4 



?a6i 


1^02772 


346346 


0437?6 


2862 


5102773 


055346 


043722 


23^3 


["02774 


041346 


346346 


2864 


Cia?775 


!"43345 


346720 


2665 


002776 


720724 


724732 


2866 


002777 


CI57346 


002057 


28A7 


(103000 


060045 


600064 


2868 


003071 


064043 


041054 


2869 


I'03002 


261040 


040040 


2870 


003003 


062045 


056041 


2871 


003004 


055571 


051600 


2872 


003005 


057065 


417001 


2873 


003006 


043054 


057063 


2874 


003007 


571062 


045054 


2875 


003010 


045041 


370055 


2876 


003011 


064041 


060571 


2877 


003012 


065047 


045064 


2878 








2879 








2880 








2881 








28B2 


003013 


2030!^0 


0000?I0 


28H3 








28S4 








2885 








2886 








2387 









♦ tJl.NRY 
*BINRV 
*BIMRY 
♦BINPY 
♦BINRY 
♦BINRY 
♦BI^PY 
+BIMRY 
+ BI\i'?Y 
*BINRY 
♦elMRY 
*BINRY 
+BINRY 
♦BINPY 
*BIMRY 
+BINRY 
♦BINRY 



IF1,< niOCK <CLDC+3>/4> 



lENOEF CLOC. ,<CUOC.==CLOr> 

lEN CLOC.-CLOCi<PRlKiTX PHASE ERROR IN OPTABlf> 



EDDT 



V0P2 -EXEC MODE DDT 
OP DECODER 
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2888 
2839 
2890 
?891 
2392 
2893 
2894 
2895 
2896 
2897 
2898 
2899 
2900 
29f?l 
2902 
2903 
2904 
2905 
2906 

29"? 
2908 
29?9 
2910 
2911 
2912 
2913 
2914 
2915 
291 6 
2917 
2918 
2919 
2920 
2921 
2922 
2923 
2924 
2925 
2926 
2927 
2928 
2929 
2930 
2931 
2932 
2933 
2934 
2935 
2936 



003014 
003015 
5I03016 
003017 
003021 

003022 
003023 
003024 
003025 

003026 
003027 
003030 
003031 
003032 
003033 
003034 

003035 
003036 
003037 
003040 
003041 
003042 
003043 
003044 
003045 
003046 
003047 
003050 
003051 
003052 
003053 
003354 
003055 
003056 
003057 
003060 
003061 

003062 
003063 
003064 
003065 
003066 
003067 
003070 



00 0000 
000010 
000000 

0000f 

441100 
331100 
221100 
111100 

201240 
136240 
202040 
6240^0 
660000 
242240 
202240 

200240 
202240 
6200(^0 
403100 
200340 
134240 
303240 
301240 
365100 
327100 
275240 
322240 
327240 
137240 
620240 
350000 
137240 
606000 
254000 
135100 
254000 

571245 
321240 
201305 
231300 
200347 
271346 
254030 



003015' PNTRi EXP INST 

000000 INST! 

000000 CHP! " 

TXT! RLOCK 2 

000000 SAVPDL! 



002620' 
002620' 
002620' 
002620' 

000000 

003016' 

003021' 

000004 

000004 

777745 

003^15' 

003152' 
003016' 

000002 

000006 

003022' 

000007 

000040 

000073 

003042 ' 

003042' 

000040 

003077' 

003062' 

003207' 

777774 

000005 

003210' 

000004 

003116' 

003014' 

003042' 

777745 

003071' 

000025 

000004 

003022' 

000000 

003042' 



BTAd! POINT 9,TBL 

POINT 9,TBL,8 

POINT 9,TBL.17 

POINT 9,TBL,26 

OPEVAL! MOVEI T,0 
IDPB T.CMP 
MOVEM P. SAVPDL 
TR^A F.OUTF 

OPTYPEI TRO F.OUTF 
LSH T,-33 
MOVEM T.INST 



IPOP'TER TO PITS IN INST 
;BIN<>RV FOR INSTRUCTION 
ICHAK POINTER INTO TXT, TXT*! 
(STORE INPUT TEXT FOR OPEVAL 
iSAVF PUSH DOWN LIST POINTER 

ITABLE USED TO GET NEXT BYTE POINTER 
IFOR TRANSFER BYTE 



(EVALUATE FOR AN OP CODE 
(INSERT NULL IN TEXT FOR SYMBOL 



(TYPE AN OPCODE SYMBOLICALLY 
(GET OPCODE INTO RIGHT 9 BITS 



MOVE TiCxWO 440700tTXT: 
MOVE" T.CHP 
TRZ F.ITF 
CLEARS R.Wl 
MOVE n;2.RTAB 
nci: ILOB T,h2 
OAILE T,40 
CAIL T.73 
SOJGE RfOCl 
JUMPG R.DCl 
SUBI T.40 
JUMPF T.nECX 
JUMPG T.DC2 

DPP T.CXWD 340500, PnTR] 
TRZ T,-4 
AOS T 

nPB T.CXWD 300600, PNTR] 
TRNN F.OUTF 
JRST DC6 
LOB R.PNTR 
JRST DCl 

0C2! HRREI T,-33(T) 
JUMPU T,r)ECT 
MOVEI W1,FIR.(T) 
IDIVI Wl,4 
MOVE W2,8TAB(W2) 
ADDI W2,(W11 
JRST OCl 



(FOR OPEVAL, SETUP POINTER TO INPiJT TEXT 
(CLEAR INSTRUCTION TYPED FLAG 



(GET NEXT BYTE IN TBL 



(SKIP OVER # BYTES = C(R) 

(SKIP OVER ALPHA TEXT WITHOUT COiJNTING 



(TRANSFER ON ASTOP CODE 
(SETUP R ON A DISPATCH BYTE 



(FOR OPEVAL ONLY 

(GET # BYTES TO SKIP OVER 



(TYPE OUT A LETTER 

(BYTE IS A TRANSFER 

(CALCULATE POINTER TO NEXT BYTE 



EODT 



V022 -EXEC MODE DOT 
OP DECODER 



MACHO. V36 19:06 4-JLIN-69 "ARE 6P 



?937 
2938 
2939 
2940 
2941 
2942 
2943 
2944 
2945 
2946 
2947 
2948 
2949 
2950 
2951 
2952 
2953 
2954 
2955 
2956 
2957 
2956 
2959 
2940 
2961 
7962 
2963 
2964 
2965 
2966 
2967 
2968 
2969 
2970 
2971 
2972 
2973 
2974 
2975 
2976 
2977 
?97B 
2979 
2900 
29P1 
29B2 
29«3 
2984 
2985 
2986 
2987 



003071 6020['0 000004 DEcT! TRNE F.OUTF 

003072 2540?0 003142' jRST DC8 

003073 1343510 003016' ILDB wl.CHP 

003074 3023K5 000133 CAIE W1,133(T) 

003075 2540K0 003103' JRST NOMAT 

003076 254030 003042' JRST DCl 

003077 6020510 000004 DECX! TRNE F.OUTF 

003100 263040 000000 POPJ Pi 

003101 1343:^0 003016' ILDB hl.CHP 

003102 32235'0 003132' JUMPE W1,DC7 

003103 262040 000002 NOMAT! POP P,R 

003104 262040 000007 POP P.W2 

003105 262040 003014' POP P.PNTR 

003106 262040 003016' POP P.CHP 

003107 350000 000002 NOMATll AOS R 

003110 137100 003014' nPB R.PNTR 

003111 135100 003014' UDP P.PNTR 
00311.2 326100 003120' JUMPN' R,0C6aA 

003113 312040 003021' CA^E P.SAVPDU 

003114 254000 003103" JRST :jOMAT 

003115 263040 000000 POPj P. 

003116 201100 000000 0C6! MOVEI R.0 

003117 137100 003014' nPB P.PNTR 

003120 316040 003021' DC6AAi CAMN PiSAVPDL 

003121 254000 003125' JRST DC6BB 

003122 135241 777776 1. 09 T,-2(P) 

003123 312241 000000 CAME T.(P) 

003124 254000 003107' JRST NOMATl 

003125 261040 003016' nC6BB! POSH P.CHP 

003126 261040 003014' BUSH P,P»JTR 

003127 2610^0 000007 PUSH P,W2 

003130 2610'>0 000002 PUSH P.R 

003131 2540010 003^)42' JRST DCl 



003132 200040 003021' DC71 MOVE PiSaVPDL 

003133 200240 003015' MOVE TiINST 

003134 242240 000333 LSH T,33 

003135 1351PB 003211' LDB R.CPOINT 3,T,8] 

003136 641240 700000 TLC T, 700000 

003137 647240 700000 TLCN T, 700000 

003140 137100 003212' OPB R.CPOINT 1^,T,12: 

003141 254000 000431' JRST CPQPJl 

003142 660000 000002 DC8! TRO F.ITF 

003143 201245 000133 MOVEI T,l33(T) 

003144 260040 002440' oySHJ P. TOUT 

003145 402000 002266' CLEARM SPSAV 

003146 254000 003042' JRST PCI 



;TYPF OUT A tETTFR 

IGET NEXT INPUT LETTER 

[COMPARE WITH ASSUMED NEXT LETTER 

lOOESNT MATCH 

(MATCHES. TRY NEXT 

JSTQP (CODE 40) HAS BEEN SEEN 

)IF FOR OUTPUT. RETURN 

!GET NEXT INPUT CHAR IF ANY 

IDOES « OF CHARS MATCH 

INO. BACK UP AND TRY SOME MORE 



JASSUME "^EXT NUMBER FOR BIN VALUE 
iSTUFF INTO AtxSwER 

I IF =0, BYTE WAS TOO BIG 

INOT AT TOP LEVEL 
lUNDEFINED. FINALLY 

(ASSUME FOR INITIAL BINARY VALUE 



HILD VALUE OF PnTR 



(RESTORE PUSH DOWN POINTFR 

(PUSH BINARY INTO POSITION FOR OPEVAL 



(ONLY DONE FOR 10 INSTRUCTIONS 
(SYMBOL FOUND, SKIP RETURN 

(SET INSTRUCTION TYPED FLAG 

(OUTPUT A LETTER 

ISO ID WONT TRY TO DELETE OP CODES 



EDDT V022 -EXEC '^ODE DDT 

OP DFTCODFI? 



MACRO. V36 19!e6 4-JuN-6'5 PAGE 61 



29fl8 


^03147 






2989 


003147 


302352' 


000010 


2990 


003150 


773767 


002423 


2991 


("03151 


770767 


000200 


2992 


P03152 


440700 


003017' 


2993 


003153 


003026' 


000407 ' 


2904 


003154 


542613 


000000 


2995 


003155 


01)00!?2 


000002 


2996 


003156 


000001? 


000134 


2907 


003157 


0000f"0 


000000 


2998 


003160 


420202 


000000 


2999 


003161 


000044 


000000 


3!?)C0 


003162 


410300 


002247' 


70f 1 


t«03l63 


3;iii'0 


001303' 


30d2 


003164 


221410 


237000 


^eil?3 


003165 


260400 


000006 


Jen^it 


003166 


0()27'^0 


001303' 


30(^5 


003167 


2704i'0 


001303' 


7006 


003170 


270400 


002414 ' 


3007 


003171 


2640''0 


eaii^S' 


305(8 


003172 


2640''0 


00113 0' 


30t"9 


003173 


0023?! ' 


002302 ' 


3010 


003174 


7770?0 


000070 


3J111 


003175 


2 7 4 1' 


002254' 


3012 


W03176 


3311'B 


002254 ' 


301.3 


"103177 


2204'»0 


002254' 


3014 


t»032i'0 


777777 


400000 


3015 


003201 


320700 


000005 


3316 


003202 


270300 


000005 


3017 


^■03203 


330600 


000005 


3018 


003204 


220400 


0000^5 


3019 


003205 


004006 


000000 


3020 


0032?6 


000011 


mill 


3021 


003207 


340500 


003014' 


3022 


003210 


300600 


003014' 


3023 


003211 


330300 


000005 


3024 


003212 


27125"0 


000005 


3025 








3026 








3027 


!"032?0 






3028 








3029 








3030 


003270 






3031 








3032 








3033 








3034 








3035 








3036 









LIT 



NO ERRORS DETECTED 
PROGRAM BREAK IS 0^3270 



"LOC LPOL 



ddtend; 



;OMLY ST4RTl\G AOORESS FOR FILOOT 
;mO START AOORESS FQR EXEC OR USER DDT 

iBECAUSE MONITOR IS LOAOED «iITH BOTH EXEC ANO USER DOTS 
iBUT STILL WANTS TO 9E STARTED AT ITS OWN ST»RT ADDRfSS 
iUSER TOT IS LOAOED LAST. - T,H. 
IFN EODT,?10,<E'-1O DDT> 
END 



EOOT 



V0?2 -EXEC MODE DDT 
SYI^BOL TABLE 



MACRO. V3^ 19:06 t-JijN-aP PA'-.E 6? 



A 




0000!"2 




AC17 




?0?3?1' 




4CCF1 




3006&6' 




ASSE" 




!'006?2' 




B 




000073 




811N=; 




00U('5' 




BASECH 




001052' 




BC0M3 




001145' 




eiMRY 


2i33l3C0 


0000P0 


Din 


eiTT? 




002573' 




RNAOR 




002326' 




I5PLUP1 




001310' 




BPSl 




001374' 




BPS4 




001413' 




BREAK! 




001214' 




C 




000004 




CDR 


011400 


0000^0 


INT 


CHKA^R 




000432' 


OLH 


ruoc. 




000755 


Ol" 


COK'SVM 




001532' 




CPOPJl 




000431' 




CRF 




002421 • 




DC 


PI20000 


000000 


INT 


DC6 




003116' 




nc7 




003132' 




OCSB 


e3C4?i0 


000000 


INT 


DD? 




000026' 




dote'.;d 




003270' 


INT 


DDTX 




000000' 


INT 


OEFl 




000543' 




DEF-l 




000602' 




DELI 




2000'?0 


OLn 


OEP 




001446' 




0EPRA2 




000777' 




OIS 


("130(10 


000000 


INT 


DLS 


024000 


000000 


INT 


DTC 


("32000 


000000 


INT 


FOOT 




000001 




EFFErl 




001760' 




EQUAL 




001005' 




estut 




002262' 




EVALi 




000414' 




F 




00000 




FEF 




4000T0 


OLD 


FIR, 




000025 


Dun 


FPIA 




002147' 




FRil 




002167' 




FP7 




002205' 




FPF 




0200i?i0 


DLD 


FSGN 




002235' 




FT!" 




002232' 




FTOC 




002045' 




MALT 


254200 


000000 


INT 



A8SA 


5101047' 




ACCCr 


000643' 




Afi 


00001 1 




AUTOP 


001425' 




cilADP 


0B23'^1 1 




"ISk" 


0023''2 ' 




HCOM 


001133' 




t5DISP 


00251'6' 




RITO 


0025?1 ' 




niTT4 


002612' 




nPl 


00H''3' 




RPM 


001130' 




BPS2 


0014n0' 




npsb 


001423' 




RREAK2 


001215' 




CARR 


5^00735 ' 




TF 


000040 


dlo 


THP 


'70301 6' 




roi^F 


200000 


f^^n 


rONT^O 


0004"'2' 




C P IJ S M P 


0024! 4 1 




rH\' 


"10241 7 ■ 




ncl 


^03042 ' 




nc6AA 


003120' 




0C8 


003142 ' 




CCl 


n00022' 




noT 


000000 ' 


INT 


ODTp'T 


000000 




TECT 


(103071' 




r'EF2 


000553' 




f^iEFlv 


000540' 




HELD 


400000 


OLO 


DEPAC 


001452' 




"EPRS 


001436' 




nisp 


002511' 




HOLLAR 


0002'i0 ' 




HTS ?324?i0 f00000 


INT 


FFTEC 


001702' 




effe:c2 


^01766' 




rrP 


fH^l"! • 




FVAL 


31004517 ' 




FVAL? 


000415' 




FAF 


001000 


HlO 


FETCW 


001454 ' 




F IRaRG 


001460' 




rP3 


0021S0' 




rP4A 


032171' 




rP741 


002212' 




fRasf 


0022=^2' 




rSV 


002263' 




rT01 


(102231' 




GLOBAL 


4 000 


HLD 


WLFt, 


001611' 





AC0 


002332' 




4CCF 


(100642 ' 




ARM 


002353' 




AUTOPI 


002331' 




31CNT 


?02303:' 




BASEl 


001056' 




9CCIM2 


001147' 




SINC 


000033' 


'^L0 


RITT 


002666'' 




3LKEND 


000151' 


r.LO 


8PLUP 


031307:' 




BPS 


001364' 




BPS3 


001412" 




BREAK 


001165' 




STAB 


003022* 




CCF 


010000' 


rLO 


CFl 


000400' 


nLO 


CLOC 


000755 


^LO 


CON 


001041' 




CPOPJ 


1^00432' 




CR 015000 ^00000; 


INT 


CIF 


000400 ' 


pLO 


nc2 


003062' 




r)C68B 


003125" 




DCSA 030000 000000^ 


INT 


D01.5 


000023 1 




DOT0 


000021' 




DDTVER 


000022: 


nuD 


OECX 


003077' 




ILFi 


000561t 




OEFV 


002267! 




()EN 


002257' 




DEPRA 


000766' 




OF 027000 (100000' 


INT 


nivD 


000620' 




OSK 017000 000000 


INT 


OVF 


040000 


(^LD 


EFFEC0 


W01756' 




FFFEC3 


001776* 




ESTU 


002261' 




fval:' 


000410* 




FVAL3 


000420* 




FCP 


002232' 




FH 


002264' 




FPl 


002142' 




FP3A 


002161* 




FP4S 


002176' 




FP7ri 


002213' 




FRASEl 


"02256' 




FT 


002223'! 




FT8 


1702217' 




GO 


(101065'. 




HLFWl 


001617'; 





EDDT 



V022 -EXEC MODE DOT 
SYMBOL TABLE 
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HWRDS 


P!0i0:56' 




IJSP 


0013;!3' 




IJSR3 


00i3:u' 




INSRTl 


0013'10' 




!NST 


003015' 




IXCT 


0012-47' 




1XCT<, 


0013112' 




JOPSYM 


0000,<6 


OLD 


KILLl 


000&13' 




LI 


5!000'il ' 




L21 


(100065' 




L4 


000110' 




LCT 


0024;M' 




LEAV 


?013("3' 




LETl 


000265' 




LU 


000711' 




LIS 


000030' 




Ll'^Z 


000036 ' 




LLOCI 


002272' 




LOOK 


0014-'0' 




L00K3 


001522' 




LPT P!124!»0 H0e0(:0 


INT 


MASK 


001672' 




MOf 026k)fii5 ("00BB0 


INT 


MLF 


0002;"e 


HLD 


MTK ;?23a00 £?000;'0 


INT 


NAF 


0002^0 


OLD 


NMIA 


000312' 




NIQMAT 


003103 ' 




NUMl 


0003"!' 




ODE 


000012 




OPTYPE 


"103032' 




p 


0000-n 




PADSl 


001624' 




PA0S3A 


0016'11 ' 




PERC 


0002'51' 




P17A 


Pi015',?7' 




PI B 


0016''7' 




PIN 


001537' 




P N A M E 


740000 


OLD 


POWER 


000326 ' 




PRMC 


0022'n' 




PROC? 


001242' 




PRS 


0000:14 


OLD 


PTi^ 


0tl01i'0 


OLO 


PTR ?lfA-^ld (S0l^0?0 


INT 


OZF 


0a00r>i 


OLH 


OUANl 


000376' 




nUFSTl 


000220' 




OUESTN 


000216 ' 




R53P';T 


001012' 




REMOVB 


0013!53' 




RE'iTRl 


0024!"2 ' 





ICON 


0007=3' 




!JSR 


0013?3' 




INDIRE 


000636' 




INSRT3 


001347' 




IPUSHJ 


001313' 




!XCT4 


001245- 




JEN 254500 0000510 


INT 


JQV 255400 0000(^0 


INT 


KILL? 


000515' 




LlRPR 


000043' 




L212 


000104 ' 




15 


fii00144 " 




LEIA 


000266" 




LEAVl 


001164' 




LFl 


n020:^0 


OLO 


LI? 


H00750' 




LIS0 


000033' 




LISTEN 


0102456' 




LCAOER 


000151' 


OLD 


LOOKl 


001477' 




LPHL 


000050 




LTF 


"100020 


OLO 


MASKl 


001700' 




MF 


000002 


OLD 


MSK 


002300' 




MTS 022400 000000 


INT 


MBP 


000010 


OLD 


MMlAl 


000314' 




N^QMATl 


003107' 




NWORn 


001705' 




ODFM 


002354' 




nSYr^ 


!100740' 




PAD 


001620' 




°A0S1A 


001635' 




PADS3a 


001644' 




PERIOD 


000350' 




PI4 


001561' 




PID 


000000 


OLO 


PLT 1114000 001^000 


INT 


PNTR 


003014' 




POWF 


004000 


OLD 


PROC0 


001231' 




PROcni 


001227' 




PS 


B03220' 




PTP 010000 000000 


INT 


PTRR 


III001?!4 


OLO 


OF 


000001 


OLD 


0UAN2 


000377' 




0UEST2 


000223' 







00001^2 




RELA 


£"01044 ' 




REMUN 


000521' 




RET 


000164' 





USA 


001317 




IJSR2 


001325 




INOUT 


001647 




INSRTB 


001337 




ITF 


000002 


~L0 


IXCT5 


["01253 




JOBHEL 


000037 


■^LO 


KILL 


000502 




KILRET 


000512 




L2 


000052 




L213 


001^1106 




LASTS 


000775 


OLO 


LE2 


000267 




LET 


000252 




LI0 


000707 




LINEF 


000706 




LISl 


000035 




LLOC 


002271 




LOCAL 


100000 


OLD 


L00K2 


001517 




LPRN 


000626 




LWT 


002254 




MASK2 


001675 




MINUS 


000623 




MTC 022000 000000 


INT 


MULT 


000617 




NMl 


000306 




NMIB 


000321 




NUM 


000234 




OCON 


000737 




OPEVAL 


003026 




OUTF 


e"00004 


"LD 


PADl 


001637 




PA0S3 


001640 




PADSO 


001622 




PI 000400 000000 


INT 


PI7 


001576 




PILOC 


000373 




PLUS 


000624 




PQW2 


000343 




PRGM 


002260 




PROCl 


001237 




PROCED 


001222 




PSYM 


001006 




PTPP 


000100 


OLD 


PUNCH 


000151 


nLD 


OUAN 


000375 




QUANIN 


000374 




0UEST4 


000232 




R20F 


000010 


OLD 


REMOVl 


001354 




RESTOR 


002401 




ROF 


000010 


OLD 



EQDT 
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RPRN 


P100664 


1 


SAF 


!?020?0 


OLD 


SAV5 


302374 


( 


SAVPDL 


5'03021' 


1 


SBF 


51 i?l g. p 


OLD 


SEARl 


001722' 




SEARPB 


?01736' 




SE4RFN 


0017421 




SET2 


|?|006?:6' 




SETUWP 


C00036 




SIV3I1 


0004=;7 ' 




SIX3° 


mii2<i' 




SLASM 


000713' 




SPT 


002133' 




SPT2 


002110' 




SVST2 


002617' 




SVRTS2 


002615' 




PYMsnu 


001040' 




T 


'^000,-15 




TBL 


002620' 




TEM2 


002255' 




TEXI? 


000445' 




TEXO 


0010301 




TEVTT 


002237' 




TIF 


1000?0 


DLO 


TMs P34HC10 ;i0eas'0 


IHT 


T0C4 


002Z73' 




TOCA 


!1020'^7' 




TSPC 


002426' 




TTY ■7i?0ne fMUf-e 


INT 


TTYRFT 


302463' 




ULTM 


001463' 




uMri 


000167 ' 




UTS 5"214?l0 W00[1(«0 


INT 


Wl 


5100006 




WRn 


5102247' 




wRONr.i 


0001S6' 




XECl 


'^101076' 




?EROR 


002035' 




%\a 


?i023n' 


INT 


i;<)B 


:'I02312' 


INT 


t7n 


!?02323' 


INT 


<tM 


1023^0' 


INT 


!«AC2 


000575 


DLC 


%AM 


000614 


Old 


y.B 


000217 


Old 


•■£BIMR 


000277 


Old 


"-(BYTF 


000221 


DLO 


i;CAl 


0005^2 


OLD 


•<CM 


000656 


DLO 


i^DV 


000333 


DLO 


fCE 


000623 


DLO 


•■JF 


000135 


DLD 



RPRNl 


0007?3 




SARS 


002355 




SAVE 


002360 




SAVPI 


('02275' 




SCH 


000010 




SEAR2 


001730' 




SEAR3 


001744' 




SEMIC 


001063' 




SETnam 


000604 ' 




SF 


000004 


OLD 


SIXBI2 


000476' 




SIVBPl 


001022' 




SPACF 


000660' 




SPT0 


002102' 




stf 


004000 


DLO 


SVRT3 


002616' 




SYL 


0022K3' 




SYMD 


002122' 




TAB 


000757' 




TEM 


002356' 




TEM3 


002256' 




TEXI3 


0004'«3' 




TEXT 


002240- 




TFLOT 


0021301 




TIM 


002430' 




Tor 


002045' 




Tors 


002077' 




TOCS 


002056' 




TT 


000013 




TTYl 


002464' 




TTYY 


000120 


OLD 


ULIMl 


001465' 




UNOEF 


000153' 




VARRW 


000731 ' 




•A 2 


000007 




WRn2 


002250' 




XEC 


l»01066' 




?ERO 


0020U' 




?LOW 


000040 


OLD 


<t2B 


002304' 


INT 


■tSR 


002315' 


INT 


t8B 


002376' 


INT 


JtA 


000205 


OLD 


ICACS'^ 


000562 


OLD 


!fAn 


000354 


OLD 


XB2 


000646 


OLD 


•-fBOOLE 


000612 


DLO 


XC 


000462 


OLD 


•'JCAL 


?|00705 


OLD 


?!COMP 


0005'0 


OLD 


••SDVl 


000336 


OLD 


i;ean 


000605 


OLD 


•■SFLO 


000166 


OLD 



S 


000003 




SAVl 


"02365 


( 


SAVLDC 


002273 


I 


SAVTTY 


702277 




SCHM 


002352' 


f 


SEAR2A 


001731' 


r 


SEAR4 


001755' 




SETl 


030605' 




SETUP 


002000' 




SFLOT 


001037' 




SIXBIN 


000460' 




SLASl 


000751' 




SPSAV 


002266' 




SPTl 


002104' 




SUPTYO 


000742' 




SVBTS 


002614' 




SYM 


002265' 




SYMP 


002274' 




TAG 


000530' 




TEMl 


002357' 




TEXI 


000433' 




TEXIN 


002502' 




TEXT2 


002242' 




TFLOTl 


002140' 




TMC 034000 000000 


: TNT 


TOC0 


002062' 




T0C6 


002100' 




TOUT 


002440' 




TTl 


000014 




TTYLEV 


002474' 




TXT 


003017' 




UHMIT 


002270' 




UTC 021000 ^?000e 


■ INT 


H 


^300''4 




WORD 


0017^4' 




WRONG 


000155' 




XEC0 


001070' 




ZEROl 


002021' 




li 


000010 


;nLO 


%ZB 


002307' 


INT 


168 


002320' 


I IgT 


tl 


002275' 


: TNT 


%AC1 


000571 


:nLD 


XACCP 


000464 


i hlO 


XAOB 


000375 


:oLD 


%BD 


000025 


Into 


JSBPUT 


000132 


'DLO 


XZtL 


000652 


DLD 


%CB 


000664 


DLO 


%DP 


000252 


>ld 


»'.DV2 


000340 


;dlo 


)«EIMS 


000307 


:dlD 


V.H1 


000342 


'DLD 



FDin 



"/(HAK 

%l 

%IP 

XJR 

•<ML1 
!!N 

•<;qh 

?!PI,I 

•<U62 
V.UUO 
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SYMBOL TABLE 

•CHWI 

•■(J 
fL 

'(Md 

•<0 

5;p 

vpnp 

■<pus 

'^Sl 
■KT 

%u7i«:< 



■?03255 


Old 


^ei^s'^s 


OLD 


?ien»302 


OLD 


''kiPI0;56 


Old 


-'/iaP474 


OLD 


laaaii 


OLD 


WBS1327 


OLT 


P0P532 


OLO 


c^i'6?5 


OLD 


720410 


OLO 


'^0l»4r'2 


OLD 


MKP!3?2 


OLD 


rfllS'A'^2 


DLO 


cef 643 


OLO 


^ef6';4 


Old 


Pn;it»121 


DLO 


^eipi*^! 


DLO 


r>0(;lf)44 


DLO 



7iJliib 


OLD 


{?l5f>5'='2 


OLO 


?aa3"0 


'i[_n 


?35i4T3 


OLO 


"gi^ZI.S 


OLO 


t-^aJiSiS 


"LD 


." 21 3 (? 6 


r>i_n 


tii301?l 


OLO 


i'ae'241 


OLO 


("00436 


OLO 


C00472 


OLO 


r<00460 


rn_n 


C100441 


^lo 


:"3^3=.l 


OLO 


i«0?l^l 


OLO 


^001^2 


OLO 


CT00777 


m 


.-301'='3 


r.[n 



%HW2 

•/SHUT 

•/.IMS 

•-(JP 

".LO 

%ML 

XMV 

"401 

%PA 

%PSJ 

XH 

xsz 

%SJ 

'/.Ji 

%U50 

%U6062 

•/SUSET 



:;i00544 


OLD 


[»30536 


OLD 


PI30316 


OLD 


!" (30400 


nLD 


000246 


OLD 


000324 


TLD 


000257 


nLD 


000041 


nLD 


000425 


OLD 


000517 


nLD 


000416 


PLD 


("00451 


OLO 


000507 


nLO 


000660 


nLD 


000676 


OLD 


000155 


nLO 


000072 


nLO 



A 




16^0 
17'56 


1725 
17 '^4 


1726 
1772 


1727 
1773 


1728 
1776 


17.-'1 
1758 


1733 
1799 


1737 


1739 


1743 


1744 


AB5A 


1?13# 


23-'5 






















AC? 
AC17 


15535 
1875« 


11^4 
2033 


1152 


1172 


1211 


1225 


133 


1352 


1873* 


2034 


2035 


2064 


ACCCr 


839# 


842 






















ACTF 


878# 


2298 






















ACCF1 


8'H 


850* 






















AR 


139# 


10?4 


15.38 


2321 


2344 


2346 














ARK 


1879# 
























ASSEM 


468 


511 


517 


819* 


2295 
















AUTOP 


1142 


1296# 






















AUTQPI 


1134 


1265 


13.^0 


1302 


1870* 
















B 


133# 


1736 


1740 


1744 


1746 


1762 


1764 


1768 


1775 








BlAQo 


217 
1277 


218 
1283 


219 
1296 


220 
1842* 


271 


222 


273 


224 


1112 


1231 


1246 


1251 


BICNT 


1083 


1095 


1092 


1844# 


















SUMS 


la77i» 


1081 


1234 


1246 


















RISKP 


10fll 


1083 


1090 


1843# 


















BASE! 


998 


10"5 


Xdlllf 


2332 


















BASECH 


IS)!'! 


10f!7# 






















PCOM 


1045 
12J!9 


1049 
1214 


1053 
1223 


1057 

2068 


1061 


1065 


1069 


1073 


1079* 


1086 


1120 


1196 


RCn^? 


1084 


iao2« 


1116 


1140 


















acn«i-( 


1082 


ia90# 


1110 


1124 


1126 


1129 


1141 












RDISP 


439 


2273# 






















PINC 


2653# 


2755 


2755# 


27560 


2756 


2757tt 


2757 


2758* 


2758 


2759* 


2759 


2760* 
2767* 




2761 


2762# 


2762 


2763* 


2763 


2764# 


27*4 


2765* 


2765 


2766* 


2766 




2768 


2769# 


2769 


2770# 


2770 


2771* 


2771 


2772* 


2772 


2773* 


2773 


2774* 




2775 


2776* 


2776 


2777# 


2777 


2778* 


2778 


2779* 


2779 


2730* 


2780 


2781* 




2782 


27«3i» 


2783 


27e4# 


27^4 


27S5S 


27''5 


2786* 


27!'6 


2787* 


2787 


2788* 




2789 


2790# 


2790 


2791# 


2791 


2792* 


2792 


2793* 


2793 


2794* 


2704 


2795* 




2796 


2797* 


2797 


2798* 


2798 


2799* 


2799 


28?|0* 


28510 


2811* 


2ei?l 


2802* 




28l'"3 


28PJ4# 


2804 


2805* 


28!"5 


2806* 


28C6 


2807* 


28517 


2e''8« 


2808 


2809* 
2816* 




2810 


2811* 


2811 


2812# 


2812 


28l3# 


2813 


2814* 


2814 


2815* 


2815 




2817 


2 8 1 8 # 


2818 


2819# 


2819 


2820* 


2820 


2821* 


2821 


2822* 


2322 


2823* 




2824 


2825# 


2825 


2826# 


2826 


2827* 


2827 


2828* 


2828 


2829* 


2629 


2330* 




2831 


2832i» 


2832 


2833* 


2833 


2834* 


2874 


2835* 


2835 


2336* 


2836 


2877* 




2838 


2839# 


2879 


2840* 


2840 


2841* 


2841 


2842* 


2842 


2843* 


2843 


2844* 




2845 


2846# 


2846 


2847# 


2347 


2848* 


2848 


2849* 


2P4 9 


2850* 


2350 


2851* 
28'^8# 
2665* 




2852 


2853# 


2853 


2854# 


28'?4 


2855* 


28'^5 


2856* 


2^'^6 


2857* 


2857 




2859 


2860# 


2860 


2861* 


28'1 


2862* 


2862 


2863* 


2363 


2864* 


2864 




2866 


2e67i» 


2867 


2368* 


2868 


2869* 


2869 


2870* 


2870 


2871* 


2871 


2872* 




2873 


2874« 


2874 


2875* 


2875 


2876* 


2876 


2877* 


2877 


2878* 


2878 


2382* 
2760* 


3 U^RV 


2651« 


2755 


2755* 


2756* 


2756 


2757* 


2757 


2758* 


'758 


2759* 


2759 




2761 


2762S 


2762 


2763* 


'763 


2764* 


2764 


2765* 


2765 


2766* 


2766 


2767* 




2768 
2775 


2769# 
2776«l 


2769 
2776 


2770* 
277/* 


2770 
2777 


2771s 

2778* 


2771 

2778 


2772* 
2779* 


2772 
2779 


2773* 
2780* 


2773 
7780 


2774* 
2781* 




2782 


27«3# 


2783 


2784# 


2784 


27''5s 


27°5 


27?6* 


?7'>6 


2787* 


2787 


2788* 




2789 


2790# 


2790 


2791* 


2791 


2792* 


2702 


2793* 


2793 


2794* 


2794 


2795* 




2796 
28C3 


2797# 

28i"4# 


2797 

23!"4 


2798* 
2875* 


2798 

28i'5 


2799* 
28''6* 


2799 
28^6 


?800« 
2807* 


2B''0 
23!»7 


2801* 
2808* 


2801 
2808 


2302* 
2809* 




2810 


2811* 


2811 


2912# 


2812 


2813* 


2313 


2814* 


2314 


2315* 


2815 


2316* 



1263 



lil9 7 



2^60 
7bf,7 
2774 
2|7«1 
2788 
2i'05 
2602 
2fe!'9 
2fel6 
2823 
2830 
2877 
2fe44 
2*51 
2653 
2165 
2472 

2t60 
2t67 
2^74 
2791 
2588 
2:lo5 
2402 
2$09 
2316 



1264 



1198 



2761* 
2768* 
2775* 
2782* 
2789* 
2796* 
2803* 
2810* 
2817* 
2324* 
2831* 
2338* 
2345* 
2852* 
2859* 
2866* 
2873* 

2761* 
2768* 
2775* 
2782* 
2789* 
2796* 
281^.3* 
2810* 
2317* 





2817 


2818# 


2818 


2819* 


2819 


2820* 


2820 


2821* 


2321 


2822* 


2822 


2823* 


2823 


2624« 




2824 


2825i» 


2825 


2826# 


2826 


2827* 


2827 


2828* 


2328 


2829* 


28'9 


2830* 


2870 


2831* 




2631 


2832# 


2832 


2633* 


2833 


2834)K 


2874 


2835* 


283 5 


2336* 


2876 


2337* 


2877 


28i8» 




28?8 


2839# 


2879 


2840* 


2840 


2841# 


2641 


2842* 


2842 


2843* 


2843 


2844* 


2844 


2345* 




2815 


28i6i(i! 


2846 


2B<7tf 


2847 


2848* 


2848 


2849* 


2849 


2850* 


2850 


2851* 


2851 


2852* 




2852 


2853# 


2853 


2854# 


2854 


2855* 


2855 


2856* 


2856 


2857* 


2857 


2858* 


2858 


2359* 




2859 


2860# 


2860 


2861* 


2861 


2862* 


2862 


2863* 


2863 


2864* 


2844 


2865* 


2865 


2866» 




2856 


2867# 


2867 


2868* 


2868 


2869* 


2869 


2870* 


2870 


2871* 


2371 


2872* 


2872 


2873* 




2873 


2874# 


2874 


287b# 


2875 


2876* 


2876 


2877* 


2877 


2678* 


2878 


2832 






HITO 


2310 


2320*1 


























RITT 


2320 


2334# 


























8ITT? 


2339* 


23f;3 


























BITT<1 


23'<9 


2356# 


























BLKEMO 


22ai# 


2318 


























3N4DR 


1245 


1289 


1869* 
























BPl 


1040# 


1077 


1085 


1230 


1231 


1234 


















8PLUP 


1166 


1200# 


1218 
























BPLUPl 


1147 


12!11# 


























BPN] 


1K78# 


1239 


























RPS 


1259# 


2306 


























RPSl 


1260 


1268* 


























BPS2 


1262 


1272# 


























SPSS 


1269 


1283# 


























HPS4 


1284# 


1290 


























I3PS5 


1281 


1287 


1292* 
























9ReAK 


10P3 


1108# 


























BREAKl 


1127 


1131# 


























BREAK2 


1114 


1132* 


























BTAB 


2895# 


2911 


2933 
























C 


134# 


1741 


1751 


1759 


1766 


1798 


1799 


1800 














CAPP 


484 


915* 


2288 
























CCF 


162# 


414 


652 


660 


736 


1012 


1301 


1638 














CDP 


239# 


239 


























CF 


161# 


414 


429 


548 


591 


652 


659 


697 


760 


949 










CFl 


1B3* 


4717 


923 


924 


964 


965 


1445 
















CHKADR 


1396# 




























CMP 


420 


582 


2891* 


2901 


2908 


2940 


2947 


2952 


2968 












CLHC 


2652# 


2755 


2755* 


2756 


2756* 


2757 


2757* 


2758 


2758* 


2759 


2759* 


2760 


2762* 


2761 




2761# 


2762 


2762* 


2763 


2763* 


2764 


2764* 


2765 


2765* 


2766 


2766* 


2767 


2767* 


2763 




2768i» 


2769 


2769* 


2770 


2770* 


2771 


2771* 


2772 


2772* 


2773 


2773* 


2774 


2774* 


2775 




2775# 


2776 


2776* 


2777 


2777* 


2778 


2778* 


2779 


2779* 


2730 


2780* 


2781 


2781* 


2732 




27B2I8 


2783 


2783* 


2784 


27i'4« 


2785 


2785* 


2786 


2786* 


2787 


2787* 


2788 


2788* 


2789 




2789# 


2790 


2790* 


2791 


2791* 


2792 


2792* 


2793 


2793* 


2794 


2794* 
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